From 093ad73c78bd70eb91cadd56d8d5b93d59bf5f12 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 27 Oct 1999 14:17:20 +0000
Subject: [PATCH]   + StringOfChar

---
 rtl/inc/astrings.inc | 11 ++++++++++-
 rtl/inc/systemh.inc  |  6 +++++-
 2 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/astrings.inc b/rtl/inc/astrings.inc
index abfdeea070..02fa4a7a9a 100644
--- a/rtl/inc/astrings.inc
+++ b/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
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 5d53b51e1b..aa5e6add6e 100644
--- a/rtl/inc/systemh.inc
+++ b/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)