Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с файлами в Delphi [D7, WinXP]

Pav © (2005-06-10 20:15:00)
Имеется папка с файлами. Надо поочередно определять имена файлов в этой папке и присваивать их файловой переменной. Как это сделать?

raidan (2005-06-11 17:00:00) [1]
Сессия :о)

-=XP=- (2005-06-11 14:41:00) [2]
Да уж.
Если дело не отошло от непонимания алгоритмов, то форум Вам не поможет...
А ну быстро книгу в руки! И учиться, учиться, учиться!

Pav (2005-06-11 14:17:00) [3]
Если переменная FileName меняется в циклке, то как определить имя конкретного файла, которое будет присваиваться этой переменной, потому что файлов то много?

Pav (2005-06-11 14:12:00) [4]
Файлы храню на жеском диске.

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

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

Alx2 (2005-06-10 22:40:00) [6]
AssignFile(Fa,FileName);
где FileName имеет тип string и меняется в цикле

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

Alexander Panov (2005-06-10 21:32:00) [8]
Pav © (10.06.05 20:15)

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

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

Pav (2005-06-10 21:09:00) [10]
Поясни по подробней, а то просто код не совсем понятен.

Zeqfreed (2005-06-10 21:02:00) [11]
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); ...

Eraser (2005-06-10 20:44:00) [12]
Pav © (10.06.05 20:15)

FindFirs/Next

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »