разобраться с циклом

[Downloads]

необходимо написать цикл который начинается с 0001 и кончается 0825

for i:= 97 to 122 do
LoadFromFile(Path + '0001' + chr(i) + '.tmp');

как написать цыкл с 0001 по 0825

[Serge_Bliznykov]

так, что ли?

for i:= 1 to 825 do begin
   LoadFromFile(Path + Format('%0.4d',[i]) + '.tmp');
   .... тут, наверное, что-то делаем с загруженным файлом...
end;

p.s. а вообще, имхо, вопросы такого уровня сложности скорее подходят для раздела "Помощь студентам", чем для раздела программирования на Delphi....

[Downloads]

Serge_Bliznykov, 0001, 0002, 0003 и так далее до 0825

[Serge_Bliznykov]

Сообщение от Downloads

Serge_Bliznykov, 0001, 0002, 0003 и так далее до 0825

угу. т.е. мой пример кода Вы проигнорировали... понятно...

[Downloads]

Serge_Bliznykov, ваш пример не сработал ((

[Serge_Bliznykov]

Сообщение от Downloads

Serge_Bliznykov, ваш пример не сработал ((

как не сработал: не скомпилировался, выдал ошибку, ещё как-то не сработал?

для понимания ситуации запустите такой цикл (и расскажите, как он, "сработал" или нет...):

for i:= 1 to 825 do begin
   ShowMessage('Открывается файл с именем: '+ Path + Format('%0.4d',[i]) + '.tmp');
end;

[Downloads]

Project Project1.exe raised exception class

[Serge_Bliznykov]

сочувствую, но, очевидно, что в коде у Вас ошибка...

[Vapaamies]

В символе формата точка явно лишняя. А совсем правильный пример выглядит так:

  for i:= 1 to 825 do
    ShowMessage('Открывается файл с именем: '+ Format('%s%04d.tmp', [Path, i]));

[Downloads]

Serge_Bliznykov? все работало! моя ошибка. спасибо огромное