+ StringOfChar

rtl/inc/astrings.inc

@@ -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

rtl/inc/systemh.inc

@@ -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)