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

+ Added Ansistring setstring call

Browse Source
This commit is contained in:
michael 1999-11-25 13:34:57 +00:00
parent 27aca567d2
commit 65cd1cdbc7
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/astrings.inc
View File

@ -631,9 +631,19 @@ begin
FillChar(Pointer(StringOfChar)^,Length(StringOfChar),c); FillChar(Pointer(StringOfChar)^,Length(StringOfChar),c);
end; end;
Procedure SetString (Var S : AnsiString; Buf : PChar; Len : Longint);
begin
SetLength(S,Len);
Move (Buf[0],S[1],Len);
end;
{ {
$Log$ $Log$
Revision 1.35 1999-11-06 14:35:38 peter Revision 1.36 1999-11-25 13:34:57 michael
+ Added Ansistring setstring call
Revision 1.35 1999/11/06 14:35:38 peter
* truncated log * truncated log
Revision 1.34 1999/11/02 23:57:54 peter Revision 1.34 1999/11/02 23:57:54 peter

6
rtl/inc/systemh.inc
View File

@ -217,6 +217,7 @@ Function Pos(const substr:shortstring;const s:shortstring):StrLenInt;
Function Pos(C:Char;const s:shortstring):StrLenInt; Function Pos(C:Char;const s:shortstring):StrLenInt;
Procedure SetLength(var s:shortstring;len:StrLenInt); Procedure SetLength(var s:shortstring;len:StrLenInt);
Procedure SetString (Var S : Shortstring; Buf : PChar; Len : Longint); Procedure SetString (Var S : Shortstring; Buf : PChar; Len : Longint);
Procedure SetString (Var S : AnsiString; Buf : PChar; Len : Longint);
Function Length(s:string):byte; Function Length(s:string):byte;
Function upCase(const s:shortstring):shortstring; Function upCase(const s:shortstring):shortstring;
{$ifndef RTLLITE} {$ifndef RTLLITE}
@ -398,7 +399,10 @@ const
{ {
$Log$ $Log$
Revision 1.67 1999-11-20 12:48:09 jonas Revision 1.68 1999-11-25 13:34:57 michael
+ Added Ansistring setstring call
Revision 1.67 1999/11/20 12:48:09 jonas
* reinstated old random generator, but modified it so the integer * reinstated old random generator, but modified it so the integer
one now has a much longer period one now has a much longer period