Работа с файлами в Delphi

← →
Pav © (2005-06-10 20:15) [0]

Имеется папка с файлами. Надо поочередно определять имена файлов в этой папке и присваивать их файловой переменной. Как это сделать?

← →
Eraser © (2005-06-10 20:44) [1]

Pav © (10.06.05 20:15)

FindFirs/Next

← →
Zeqfreed © (2005-06-10 21:02) [2]

Pav © (10.06.05 20:15)
... var SR : TSearchRec; begin if not (папка с файлами[length(папка с файлами)] in ["\", "/"]) then папка с файлами := папка с файлами + "\"; if FindFirst(папка с файлами + "*", faAnyFile, SR) = 0 then begin repeat файловая переменная := SR.Name; ShowMessage(папка с файлами + файловая переменная); until (FindNext(SR) <> 0); end else MessageBeep(MB_ICONHAND); ...

← →
Pav © (2005-06-10 21:09) [3]

Поясни по подробней, а то просто код не совсем понятен.

← →
Fay © (2005-06-10 21:16) [4]

Pav © (10.06.05 21:09) [3]
Напиши лучше сам, что такое "файловая переменная"?

← →
Alexander Panov © (2005-06-10 21:32) [5]

Pav © (10.06.05 20:15)

Что конкретно не получается?

← →
Pav © (2005-06-10 22:36) [6]

Как при выполнении программы в строке: "AssignFile(Fa,"E:\Bd\Abrasives.htm");" изменять name.txt на soname.txt, на adress.txt и т. д.

← →
Alx2 © (2005-06-10 22:40) [7]

AssignFile(Fa,FileName);
где FileName имеет тип string и меняется в цикле

← →
Alexander Panov © (2005-06-10 22:43) [8]

Pav © (10.06.05 22:36) [6]
Как при выполнении программы в строке: "AssignFile(Fa,"E:\Bd\Abrasives.htm");" изменять name.txt на soname.txt, на adress.txt и т. д.

А где ты хранишь имена файлов soname.txt, на adress.txt и т. д.?

Файлы храню на жеском диске.

Если переменная FileName меняется в циклке, то как определить имя конкретного файла, которое будет присваиваться этой переменной, потому что файлов то много?

Да уж.
Если дело не отошло от непонимания алгоритмов, то форум Вам не поможет...
А ну быстро книгу в руки! И учиться, учиться, учиться!

Сессия :о)

Работа с файлами в Delphi Найти похожие ветки