paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-19 11:11:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* replace can now also insert strings > 255 chars in ansistrings

Browse Source 
git-svn-id: trunk@5327 -
This commit is contained in:
Jonas Maebe 2006-11-11 10:23:27 +00:00
parent 8f8299d9f5
commit 31fcd93a1c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cutils.pas
View File

@ -60,7 +60,7 @@ interface
function size_2_align(len : longint) : shortint; function size_2_align(len : longint) : shortint;
function packedbitsloadsize(bitlen: int64) : int64; function packedbitsloadsize(bitlen: int64) : int64;
procedure Replace(var s:string;s1:string;const s2:string); procedure Replace(var s:string;s1:string;const s2:string);
procedure Replace(var s:AnsiString;s1:string;const s2:string); procedure Replace(var s:AnsiString;s1:string;const s2:AnsiString);
procedure ReplaceCase(var s:string;const s1,s2:string); procedure ReplaceCase(var s:string;const s1,s2:string);
Function MatchPattern(const pattern,what:string):boolean; Function MatchPattern(const pattern,what:string):boolean;
function upper(const s : string) : string; function upper(const s : string) : string;
@ -351,7 +351,7 @@ implementation
end; end;
procedure Replace(var s:AnsiString;s1:string;const s2:string); procedure Replace(var s:AnsiString;s1:string;const s2:AnsiString);
var var
last, last,
i : longint; i : longint;