Leerzeichen multiplizieren?

[dizzy]

Zitat:

Zitat von new32

Delphi-Quellcode:

function leer(count:cardinal):string;
var c:cardinal;
begin
 for c:=1 to count do begin
  result:=result+' ';
 end;
end;

MfG NEW32!

Überhaupt tritt man den Speicher so mit Füßen. Grund ist der selbe wie bei dyn. Arrays auch. (Haben wir hier schon oft genug durchgekaut ;))
Besser:

Delphi-Quellcode:

function leer(count:cardinal):string;
var c:cardinal;
begin
  SetLength(result, count);
  FillChar(result, count, ' ');
end;

\\edit: U.U. muss result[1] oder @result als Parameter für FillChar übergeben werden - habs grad nicht 100%ig im Kopf.

Gruss,
Fabian