String formatieren in einer Schleife

[Uncle Cracker]

Hi,

ich habe eine Schleife gemacht in der bis 10000000000000 gezählt wird, ist ja nicht so das Problem. Doch nun möchte ich, dass anstatt das hier: 1, 2, 3,...
das hier ausgegeben wird: 00000000000001, 00000000000002, 00000000000003,...

Wie kann ich das machen? Habe es schon mit Format probiert, aber irgendwie bekomm ich das nicht gebacken...

Hier mal die Schleife

Delphi-Quellcode:

var
  i: real;
begin
  repeat
    Label1.Caption := InttoStr(Round(i));
    i := i + 1;
    Application.ProcessMessages;
  until i = 10000000000000;
end;

Hat vielleicht jemand eine Idee wie ich das machen könnte?


:love: Danke UC

[Edit]Hab da irgendwie ein "if" dringehabt, was da nicht hin sollte, is jetzt weg :D [/edit]

[Matze]

ungetestet:

Delphi-Quellcode:

Format('%.14d',[Zahl])

[Nikolas]

Vielleicht was in der Art:

Delphi-Quellcode:

i ist grad 51232 oder sowas...

j:= length(inttostr(10000000000000));
k:= length(inttostr(i));

str:='';
for m:=0 to j-k do
str:=str+'0';

str:=str+i;

Also von der Idee her schauen, wie lange die aktuelle Zahl ist, dann ausrechnen, wie viele Nullen noch ergänzt werden müssen, dass dann tun und die Zahl selbst anhängen.

Edit: Du solltest i vor der Schleife noch auf 0 setzen.

[Matze]

Das dürfte aber sehr auf die Performance gehen, da ist

Delphi-Quellcode:

var
  i: real;
begin
  repeat
    Label1.Caption := Format('%.14d',[Round(i)]);
    inc(i);
    Application.ProcessMessages;
  until i = 10000000000000;
end;

wohl etwas schneller. ;)

Nachtrag: Wieso eigentlich real?

[Nikolas]

Er wollte eine Lösung haben, von performant hat niemand was gesagt :duck:

Edit: Real wahrscheinlich, da integer nur 10 Stellen hat und die benutzen Zahlen größer sind. Int64 sollte als Integer-Variable da besser passen.

[Uncle Cracker]

Zitat:

Zitat von Toxman

Er wollte eine Lösung haben, von performant hat niemand was gesagt :duck:

lol

Danke jetzt funktioniert es:

Delphi-Quellcode:

var
  i: Int64;
begin
  i := 0;
  repeat
    Label1.Caption := Format('%.14d',[i]);
    inc(i);
    Application.ProcessMessages;
  until i = 10000000000000;
end;

[Muetze1]

Moin!

@Toxman: Kleiner Tipp zu deiner Schleife: StringOfChar()

MfG
Muetze1