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

* strpas bugfix

Browse Source
This commit is contained in:
carl 1998-07-01 14:29:42 +00:00
parent a218bfc8ce
commit 6484f2b2a9
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/template/strings.pp
View File

@ -221,11 +221,11 @@ Implementation
lstr: string;
Begin
counter := 0;
str := '';
lstr := '';
while (ord(Str[counter]) <> 0) and (counter < 255) do
begin
Inc(counter);
;str[counter] := char(Str[counter-1]);
lstr[counter] := char(Str[counter-1]);
end;
lstr[0] := char(counter);
strpas := lstr;
@ -610,8 +610,11 @@ Implementation
end.
{
$Log$
Revision 1.1 1998-03-25 11:18:46 root
Initial revision
Revision 1.2 1998-07-01 14:29:42 carl
* strpas bugfix
Revision 1.1.1.1 1998/03/25 11:18:46 root
* Restored version
Revision 1.4 1998/01/26 12:02:01 michael
+ Added log at the end