Statt 0,1,2 000,001,002

[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;