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

* fixed setstring (+- like suggested by Dimitry Sibiryakov)

Browse Source
This commit is contained in:
Jonas Maebe 2003-02-26 19:16:55 +00:00
parent c38ebece5a
commit b5976b8730
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/astrings.inc
View File

@ -802,15 +802,10 @@ begin
end; end;
Procedure SetString (Var S : AnsiString; Buf : PChar; Len : Longint); Procedure SetString (Var S : AnsiString; Buf : PChar; Len : Longint);
var
BufLen: longint;
begin begin
SetLength(S,Len); SetLength(S,Len);
If (Buf<>Nil) then If (Buf<>Nil) then
begin begin
BufLen := StrLen(Buf);
If (BufLen < Len) then
Len := BufLen;
Move (Buf[0],S[1],Len); Move (Buf[0],S[1],Len);
end; end;
end; end;
@ -838,7 +833,10 @@ end;
{ {
$Log$ $Log$
Revision 1.35 2002-12-09 08:33:31 michael Revision 1.36 2003-02-26 19:16:55 jonas
* fixed setstring (+- like suggested by Dimitry Sibiryakov)
Revision 1.35 2002/12/09 08:33:31 michael
+ Fixed range check error and others in Delete + Fixed range check error and others in Delete
Revision 1.34 2002/12/07 14:34:30 carl Revision 1.34 2002/12/07 14:34:30 carl