Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/MojuUtils.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10.2.2 by h677, Wed Jun 22 15:25:17 2005 UTC revision 1.10.2.3 by h677, Sat Jun 25 10:12:55 2005 UTC
# Line 21  uses Line 21  uses
21          function ReplaceString(const S, OldPattern, NewPattern: string): string;          function ReplaceString(const S, OldPattern, NewPattern: string): string;
22          function IgnoCaseReplaceString(const S, OldPattern, NewPattern: string): string;          function IgnoCaseReplaceString(const S, OldPattern, NewPattern: string): string;
23    
24          function CustomStringReplace(S , OldPattern: String;const  NewPattern: string): String; overload;          function CustomStringReplace(S , OldPattern: String;const  NewPattern: string; IgnoreCase : Boolean = False): String; overload;
25          function CustomStringReplace(S , OldPattern: String;const  NewPattern: string; IgnoreCase : Boolean): String; overload;          procedure CustomStringReplace(var S : TStringList; OldPattern: String;const  NewPattern: string; IgnoreCase : Boolean = False); overload;
         procedure CustomStringReplace(var S : TStringList; OldPattern: String;const  NewPattern: string);overload;  
         procedure CustomStringReplace(var S : TStringList; OldPattern: String;const  NewPattern: string; IgnoreCase : Boolean);overload;  
26    
27          function ZenToHan(const s: string): string;          function ZenToHan(const s: string): string;
28          function VaguePos(const Substr, S: string): Integer;          function VaguePos(const Substr, S: string): Integer;
# Line 207  end; Line 205  end;
205  {$R+}  {$R+}
206  {$ENDIF}  {$ENDIF}
207    
 //高速文字列置換関数(プリミティブ)  
 function CustomStringReplace(  
         S ,OldPattern: String;  
         const NewPattern: string  
 ): String;  
   
 begin  
         Result := ReplaceString(S,OldPattern,NewPattern);  
 end;  
   
208  //高速文字列置換関数(汎用版1)  //高速文字列置換関数(汎用版1)
209  function CustomStringReplace(  function CustomStringReplace(
210          S , OldPattern: String;          S , OldPattern: String;
# Line 254  begin Line 242  begin
242          end;          end;
243          S.EndUpdate;          S.EndUpdate;
244  end;  end;
   
 //高速文字列置換関数(汎用版3)  
 procedure CustomStringReplace(  
         var S : TStringList;  
         OldPattern: String;  
         const  NewPattern: string  
 );  
 var  
         i : Integer;  
 begin  
         S.BeginUpdate;  
         for i := 0 to S.Count - 1 do begin  
                 S.Strings[i] := ReplaceString(S.Strings[i], OldPattern,NewPattern);;  
         end;  
         S.EndUpdate;  
 end;  
245    
246  (*************************************************************************  (*************************************************************************
247   * 全角→半角   * 全角→半角

Legend:
Removed from v.1.10.2.2  
changed lines
  Added in v.1.10.2.3

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26