Числа - считать от 00001 до 99999

[JRcoker]

Подскажите пожалуйста код чтобы он считал от 1 до 99999...Примерно так...
00001
00002
и так в порядке возрастания
00010
00999
Примерно так....

[Ozerich]

откуда считал.
Или тебе надо чтобы он эти числа сгенерировал?

[JRcoker]

С 00001 до 99999...Тобишь я жму кнопку выходит 00001 жму еще раз 00002 и так далие...

[puporev]

А 99 999 раз жать кнопку палец не устанет?

[JRcoker]

Нет...Это я примерно сказал...)

[Карась]

Тупо в лоб прям в браузере.

For x := 0 To 99999 Do 
Begin
S := '0000' + IntToStr(x);
If x < 9999 Then
While Length(S) > 5 Do Delete(S, 1, 1) Else S := IntToStr(x);
End;

[Ozerich]

короче алгоритм такой.
делаешь массив из 99999 элементов типа string
for i:=0 to 99999 do
begin
if i<10 then
mas[i]='0000'+inttostr(i) else
if (i>9) and (i<100);
then mas[i]='000'+inttostr(i)
...
...
...

end;


если надо написать полностью могу

[Ozerich]

Чо ты такой ленивый?сказал алгоритм-пиши.так нет.

var
  mas:array[0..99999] of string;
  curIndex:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption:=mas[curindex];
inc(curIndex);
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for I := 0 to 99999 do
begin
  if i<10 then
  mas[i]:='00000'+inttostr(i);
  if (i>9) and (i<100) then
  mas[i]:='0000'+inttostr(i);
  if (i>99) and (i<1000) then
  mas[i]:='000'+inttostr(i);
  if (i>999) and (i<10000) then
  mas[i]:='00'+inttostr(i);
  if (i>9999) and (i<100000) then
  mas[i]:='0'+inttostr(i);
end;
curindex:=0;
end;

[Карась]

Этобыл пример "как ненадо писать на Делфи"....
Уж извините, но массив это не зе гут. Сколько только он займёт памяти.....

[Gorychev]

Такой вариант побыстрее будет..

var st: Tstringlist; s: string; a,b,c,d,e: char;
begin
  try
  st:=TStringList.Create;
  for a:='0' to '9' do
    for b:='0' to '9' do
      for c:='0' to '9' do
        for d:='0' to '9' do
          for e:='0' to '9' do
           begin
              s:= a + b + c + d + e;
              st.Add(s);
           end;
   Memo1.Lines.AddStrings(ST);
   finally
       st.Free;
  end;

В мемо для наглядности ...