Einzelnen Beitrag anzeigen

Benutzerbild von dizzy
dizzy

Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
 
Delphi 7 Enterprise
 
#1

Re: Leerzeichen multiplizieren?

  Alt 1. Aug 2005, 23:22
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
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel
  Mit Zitat antworten Zitat