paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix implementation of ReplaceStrI function

Browse Source
This commit is contained in:
pierre 2002-11-28 12:53:59 +00:00
parent faff8a4549
commit ab17afa294
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fputils.pas
View File

@ -490,6 +490,8 @@ begin
begin begin
Delete(S,I,length(What)); Delete(S,I,length(What));
Insert(NewS,S,I); Insert(NewS,S,I);
Delete(UpcaseS,I,length(What));
Insert(NewS,UpcaseS,I);
end; end;
until I=0; until I=0;
end; end;
@ -498,7 +500,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.2 2002-09-07 15:40:46 peter Revision 1.3 2002-11-28 12:53:59 pierre
* fix implementation of ReplaceStrI function
Revision 1.2 2002/09/07 15:40:46 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }