Цикл от 00000 до 55555.

[sergeyrulit]

for b:= 00000 to 55555 do
begin

end;

Мне нужно подставить значения в текст именно от 00000 до 55555 (не от 0).
что бы было 00001, 00002, 00003....

Как такое сделать?

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Пепел Феникса]

for i:=0 to 55555 do 
 begin 
  s:=IntToStr(i);
  while Length(s)<5 do s:='0'+s;
  Memo1.lines.Add(s);
 end;

примерно так.

[Don Karleone]

или вот так

case b of
  0..9: St:='0000';
  10..99: St:='000';
  100..999: St:='00';
  1000..9999: St:='0'
end;
St:=St + IntToStr(b);
Memo1.Lines.Add(St)

[Nester]

Можно так:

Function FormatStr( S:String; C:Char; L:Integer ):String;
  Begin
   Result:=StringOfChar( C, L-Length(S) )+S
 End;


 Procedure TForm1.Button1Click(Sender: TObject);
  Var b:Integer;
  Begin
   For b:=0 To 55555 Do Memo1.Lines.add( FormatStr( IntToStr(b) ,'0', 5 ) )
 End;

[eoln]

Можно просто

For b:=0 To 55555 Do Memo1.Lines.Add(Format('%.5d', [b]))