Скачать: CL | DM;

Работа с файлами в 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 и т. д.?

---

← →
Pav ©   (2005-06-11 14:12) [9]

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

---

← →
Pav ©   (2005-06-11 14:17) [10]

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

---

← →
-=XP=- ©   (2005-06-11 14:41) [11]

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

---

← →
raidan ©   (2005-06-11 17:00) [12]

Сессия :о)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.023 c