• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#objective-cqtwindows誰得cocoapythonphprubygameguibathyscaphec翻訳omegat計画中(planning stage)frameworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

ギコナビ


Commit MetaInfo

Revisionabe87e5e592b3ccba3b0cfb1f87592023baa7957 (tree)
Time2005-06-25 19:12:55
Authorh677 <h677>
Commiterh677

Log Message

無駄な宣言を削除

Change Summary

Incremental Difference

--- a/MojuUtils.pas
+++ b/MojuUtils.pas
@@ -21,10 +21,8 @@ uses
2121 function ReplaceString(const S, OldPattern, NewPattern: string): string;
2222 function IgnoCaseReplaceString(const S, OldPattern, NewPattern: string): string;
2323
24- function CustomStringReplace(S , OldPattern: String;const NewPattern: string): String; overload;
25- function CustomStringReplace(S , OldPattern: String;const NewPattern: string; IgnoreCase : Boolean): String; overload;
26- procedure CustomStringReplace(var S : TStringList; OldPattern: String;const NewPattern: string);overload;
27- procedure CustomStringReplace(var S : TStringList; OldPattern: String;const NewPattern: string; IgnoreCase : Boolean);overload;
24+ function CustomStringReplace(S , OldPattern: String;const NewPattern: string; IgnoreCase : Boolean = False): String; overload;
25+ procedure CustomStringReplace(var S : TStringList; OldPattern: String;const NewPattern: string; IgnoreCase : Boolean = False); overload;
2826
2927 function ZenToHan(const s: string): string;
3028 function VaguePos(const Substr, S: string): Integer;
@@ -207,16 +205,6 @@ end;
207205 {$R+}
208206 {$ENDIF}
209207
210-//‚‘¬•¶Žš—ñ’uŠ·ŠÖ”iƒvƒŠƒ~ƒeƒBƒuj
211-function CustomStringReplace(
212- S ,OldPattern: String;
213- const NewPattern: string
214-): String;
215-
216-begin
217- Result := ReplaceString(S,OldPattern,NewPattern);
218-end;
219-
220208 //‚‘¬•¶Žš—ñ’uŠ·ŠÖ”i”Ä—p”Å‚Pj
221209 function CustomStringReplace(
222210 S , OldPattern: String;
@@ -255,22 +243,6 @@ begin
255243 S.EndUpdate;
256244 end;
257245
258-//‚‘¬•¶Žš—ñ’uŠ·ŠÖ”i”Ä—p”Å‚Rj
259-procedure CustomStringReplace(
260- var S : TStringList;
261- OldPattern: String;
262- const NewPattern: string
263-);
264-var
265- i : Integer;
266-begin
267- S.BeginUpdate;
268- for i := 0 to S.Count - 1 do begin
269- S.Strings[i] := ReplaceString(S.Strings[i], OldPattern,NewPattern);;
270- end;
271- S.EndUpdate;
272-end;
273-
274246 (*************************************************************************
275247 * ‘SŠp¨”¼Šp
276248 * from HotZonu