Zahlenformatierung 00001 , 00002

[bigg]

hi,

hier eine simple Methode es ohne Format zu lösen.
Man könnte ja mal mit GetTickCount messen, welche Methode schneller ist.

Code:

procedure TForm1.Button1Click(Sender: TObject);

const Max = 1000;
const Name = 'v';
var i, j, LMax, Ls: Integer;
var s, Text: string;

begin
LMax := Length(IntToStr(Max));

if LMax > 1 then
begin for i := 1 to Max do
begin
s  := IntToStr(i); {Die Zahl in einen Integer umwandelm}
Ls := LMax - Length(s); {Die Länge der Zahl ermitteln minus der Gesamtlänge von Max}

if (Ls < LMax) and (Ls > 0) then
for j := 1 to Ls do s := '0' + s; {mögliche Nullen dranhängen}

s := Name + s; {Namen dranhängen}
ListBox1.Items.Add(s); {Die Zahlen in die Liste eintragen}
end;


end;
end;