Statt 0,1,2 000,001,002

[Spike2k3]

Hoi Hoi,
Wie die Überschrift schon sagt, will ich das meine Variable nicht mit 0 anfängt sondern mit 000 anfängt...
Und dann mit wwi 300 oder so aufhört...
Ich hoffe man kann das irgendwie machen...

[MrKnogge]

warum füllst du die leeren Stellen nicht einfach beim ausgeben mit 0-ern auf.

[gothic_mike]

Moin,

Zitat von Spike2k3:

Hoi Hoi,
Wie die Überschrift schon sagt, will ich das meine Variable nicht mit 0 anfängt sondern mit 000 anfängt...
Und dann mit wwi 300 oder so aufhört...
Ich hoffe man kann das irgendwie machen...

falls es dir nur beim anzeigen der Zahlen auf die drei stellen ankommt, nimm doch sowas hier:

Delphi-Quellcode:

function AddZero(const Int: Integer; const Len: Integer): String;
begin
  Result:='';
  while (Length(IntToStr(Int)) < Len) do 
    Result:=Result+'0';
  Result:=Result + IntToStr(Int);
end;

...

Label1.Caption := AddZero(X, 3);

andernfalls ist es doch egal, ob da noch nullen davor sind...

[Spike2k3]

danke...
Ich has so ähnlich gemacht...

Delphi-Quellcode:

try  //try-finally hilft, das Objekt auch dann freizugeben, wenn ein Fehler auftritt
    for h:=1 to t do
    begin
      u:=u+1;
      if u<10           then sl.Add('[img]'+Edit1.Text+'00'+inttostr(u)+'.jpg[/img]');
      if u<100 and u>9  then sl.Add('[img]'+Edit1.Text+'0'+inttostr(u)+'.jpg[/img]');
              //irgendwie klappt u<100 and u>9 nicht...weiss wer warum?
      if u>99           then sl.Add('[img]'+Edit1.Text+inttostr(u)+'.jpg[/img]');
           end;

[Mirilin]

irgendwie so sollte es doch auch klappen.

Delphi-Quellcode:

const
  s = '%.3d';
begin
  Caption := format(s,[1]);

mfg Tobias

[choose]

Hallo Spike2k3,

ich finde Mirilins Idee auch klasse und möchte Dir noch einmal der Vollständigkeit halber eine Lösung mit Format zeigen, weil Du bei der Erzeugung von Stringausgaben wahrscheinlich häufiger auf ähliche Probleme stoßen wirst (sieh in der OH unter Format-Strings nach). Ich verwende dieselben Variablenbezeichnungen wie Du:

Delphi-Quellcode:

for h:= 1 to t do
  sl.Add(Format('[img]%s%.3d.jpg[/img]', [Edit1.Text, u]);