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;