Skip to content

    StringOfChar

    Return a string consisting of 1 character repeated N times.

    Declaration

    Source position: systemh.inc line 1404

    function StringOfChar(c: AnsiChar; l: SizeInt) : AnsiString;

    function StringOfChar(c: UnicodeChar; l: SizeInt) : UnicodeString;

    Description

    StringOfChar creates a new String of length l and fills it with the character c.

    It is equivalent to the following calls: 

    SetLength(StringOfChar,l);
FillChar(Pointer(StringOfChar)^,Length(StringOfChar),c);

    Errors

    None.

    See also

    Name Description
    SetLength Set length of a string or dynamic array.

    Example

    Program Example97;

{$H+}

{ Program to demonstrate the StringOfChar function. }

Var S : String;

begin
  S:=StringOfChar(' ',40)+'Aligned at column 41.';
  Writeln(s);
end.