paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-15 22:30:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ StringOfChar

Browse Source
This commit is contained in:
florian 1999-10-27 14:17:20 +00:00
parent 19694e6112
commit 093ad73c78
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/astrings.inc
View File

@ -623,10 +623,19 @@ begin
S:=Temp;
end;
Function StringOfChar(c : char;l : longint) : AnsiString;
begin
SetLength(StringOfChar,l);
FillChar(StringOfChar,Length(StringOfChar),c);
end;
{
$Log$
Revision 1.31 1999-10-04 20:48:18 peter
Revision 1.32 1999-10-27 14:17:20 florian
+ StringOfChar
Revision 1.31 1999/10/04 20:48:18 peter
* pos function speed up by a factor 40 :)
Revision 1.30 1999/07/05 20:04:21 peter

6
rtl/inc/systemh.inc
View File

@ -250,6 +250,7 @@ Function Copy (Const S : AnsiString; Index,Size : Longint) : AnsiString;
Function Pos (Const Substr : AnsiString; Const Source : AnsiString) : Longint;
Procedure Insert (Const Source : AnsiString; Var S : AnsiString; Index : Longint);
Procedure Delete (Var S : AnsiString; Index,Size: Longint);
Function StringOfChar(c : char;l : longint) : AnsiString;
{****************************************************************************
@ -397,7 +398,10 @@ const
{
$Log$
Revision 1.63 1999-10-26 12:31:00 peter
Revision 1.64 1999-10-27 14:19:10 florian
+ StringOfChar
Revision 1.63 1999/10/26 12:31:00 peter
* *errorproc are not procvars instead of pointers which allows better
error checking for the parameters (shortstring<->ansistring)