Leerzeichen multiplizieren?

[100nF]

hallo zusammen


wie kann ich ein leerzeichen multiplizieren?
eine integer-zahl gibt an, wieviele leerzeichen hintereinander sein müssen.

mit string := 4*' ' geht es leider nicht...

[ibp]

wie wäre es mit einr schleife?

[s14]

schau mal nach "StringOfChar"

[Sharky]

Hai urbanbruhin,

schaue Dir doch mal die FunctionStringOfChar an.

Edit: Nix roter Kasten

[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!

[100nF]

hallo,

StringOfChar ist genau das richtige, vielen dank!

PS: die idee mit einer schleife hatte ich auch, aber ich dachte es gibt bestimmt eine bessere lösung...

gruss
urbanbruhin

[ibp]

ich denke mal stringofchar wird nichts anderes machen

[100nF]

Zitat von ibp:

ich denke mal stringofchar wird nichts anderes machen

aber es braucht weniger code und keine variable...

[nailor]

http://www.delphipraxis.net/internal...ct.php?t=26239

[BlackJack]

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!

wenn du Result nicht erst mit '' initialisierst wirst du unter umständen ziemlichen trash am anfang haben.