paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:49:12 +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; lstr: string;
Begin Begin
counter := 0; counter := 0;
str := ''; lstr := '';
while (ord(Str[counter]) <> 0) and (counter < 255) do while (ord(Str[counter]) <> 0) and (counter < 255) do
begin begin
Inc(counter); Inc(counter);
;str[counter] := char(Str[counter-1]); lstr[counter] := char(Str[counter-1]);
end; end;
lstr[0] := char(counter); lstr[0] := char(counter);
strpas := lstr; strpas := lstr;
@ -610,8 +610,11 @@ Implementation
end. end.
{ {
$Log$ $Log$
Revision 1.1 1998-03-25 11:18:46 root Revision 1.2 1998-07-01 14:29:42 carl
Initial revision * 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 Revision 1.4 1998/01/26 12:02:01 michael
+ Added log at the end + Added log at the end