스스로 보기에 가독성 좋은 코드의 예를 비교해 보여주세요.

local_string := IntegerToString ( StringToInteger ( local_String ) + local_integer ); // 자연어로 읽어지는 기준으로 만든 함수명
 
s := s_i( i_s(s)+i ); // 데이터타입과 방향을 기준으로 만들어진 함수명

"A;B;C" 문자열에서, 
1. "A;B;C;D" := sMod_sDMss( 'A;B;C' , '' , 'D'); // "D" 추가하기:
2. "A;C"     := sMod_sDMss( 'A;B;C' , 'B'     ); // "B" 삭제하기
3. "A;E;C"   := sMod_sDMss( 'A;B;C' , 'B', 'E'); // "B"를 "E"로 교체하기

function  sMod_sDMss ( 
 
    const TargetingText: string   ; 
          SearchingText: string=''; 
          ReplacingText: string=''; 
    const Tokken       : char  =';'
 
                     ): string;
 
var 
    foundIndex         : integer;
    TargetingStringList: TStringList;
 
begin 
    result:='';
    if ( SearchingText = ReplacingText ) 
    then 
       begin
           exit;
       end;
 
    TargetingStringList               := TStringList.Create;
    TargetingStringList.Delimiter     := Tokken            ;
    TargetingStringList.DelimitedText := TargetingText     ;
    TargetingStringList.BeginUpdate;
 
    if ( SearchingText = '' ) 
    then 
        begin                             
            if ( ReplacingText <> '' ) and ( TargetingStringList.IndexOf( ReplacingText ) = -1 ) 
            then 
                begin 
      	             TargetingStringList.Add(ReplacingText)                               // 'A;B;C' <=add('A;B'  , '' , 'C');
      	         end;
        end; 
    else
        begin 
            foundIndex := TargetingStringList.IndexOf( SearchingText ); 
            if ( foundIndex > -1 ) 
            then 
                begin 
                    if ( ReplacingText = '' ) 
                    then
                        begin  
                            TargetingStringList.Delete( foundIndex )                    // 'A;C'   <=del('A;B;C', 'B'  '' );
                        end;
                    else
                        begin 
                            TargetingStringList.Strings[ foundIndex ] := ReplacingText; // 'A;D;C' <=ren('A;B;C', 'B', 'D');
                        end;
                end;
        end;
 
    TargetingStringList.EndUpdate;
    result := TargetingStringList.DelimitedText; 
    TargetingStringList.Free;
  end;
end; //======================================================================================

function sMod_sDMss(const sDM_:string;s_:string='';sNew_:string='';const c_:char=';'):string;
var p:integer;sl:TStringList;
begin result:='';if s_=sNew_ then exit;//----------------------------------------------------
  sl:=sl_s(sDM_,c_);with sl do begin BeginUpdate;
    if s_=''then begin                                   // 'A;B;C' <=add('A;B'  , '' , 'C');
      if (sNew_<>'')and(IndexOf(sNew_)=-1)then Add(sNew_)// 'A;C'   <=del('A;B;C', 'B'  '' );
    end else begin p:=IndexOf(s_);                       // 'A;D;C' <=ren('A;B;C', 'B', 'D');
      if p>-1then begin if sNew_=''then Delete(p)else Strings[p]:=sNew_ end
    end;
  EndUpdate end; result:=s_sl(sl)
end; //======================================================================================