Пара вопросов по генерации чисел

[gamer123]

Добрый вечер. замучал гугл, везде все вокруг да около, то что нужно не нашел. Прошу помощи:

пишу программу генерации чисел, нужно чтобы генерировалось 4 цифры по маске 0000, т.е 0001, 0002, 0003, 9999. И второе тоже нигде не нашел. Генерируются числа от 0001 до 9999 в порядке возрастания, и к ним добавляется статичное число. Допустим 123 - 1230001, 1230002 и т.д. К примеру впишу 123 в edit и присвою его в одну из переменных, допустим a, а если генереные числа выводлятся в переменную (массив) b, то при выводе в файл как будет выглядеть не могу додумать. Тупой перебор уже пробова a+b, a,b, 'a'+'b'. знаю тупо...но никак не смог разобраться..

[ZaRDaK]

1.

for i := 0 to 9999 do begin
if 4 - Length(Inttostr(i)) > 0 then Memo1.Lines.Add(StringOfChar('0' , 4 - Length(Inttostr(i))) + Inttostr(i))
else Memo1.Lines.Add(Inttostr(i));
end;

2. (С текстом из едита)

for i := 0 to 9999 do begin
if 4 - Length(Inttostr(i)) > 0 then Memo1.Lines.Add(Edit1.Text + StringOfChar('0' , 4 - Length(Inttostr(i))) + Inttostr(i))
else Memo1.Lines.Add(Edit1.Text + Inttostr(i));
end;

Не проверял.

[gamer123]

спасибо. все доделоал. все прекрасно. а как можно привязать прогресс бар к мемо чтобы ориентировался по строкам - от 1 до 9999 ?

[D@rkD@iver]

ProgressBar1.Position:= round(i/100);

[gamer123]

Сообщение от D@rkD@iver

ProgressBar1.Position:= round(i/100);

чтото не разобрался.. поставил значение мин 0 мах 9999, прогрессбар заполняется на 1 деление кога программа завершена, если мах 100 то при окончании проги заполняется весь, а пока прога работает он пустой

[Utkin]

Дык его надо в цикл запихнуть, а не после .