String einen Char übergeben

[Bernhard Geyer]

Dann bastel dir halt 'ne entsprechende Funktion mit diesen Übergabeparametern:

Code:

procedure FillChar(var Dest; count: Integer; Value: Char);
var
  I: Integer;
  P: PChar;
begin
  P := PChar(@Dest);
  for I := count-1 downto 0 do
    P[I] := Value;
end;