Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.07.11;
Скачать: [xml.tar.bz2];

Вниз

Работа с файлами в 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 вся ветка

Форум: "Основная";
Текущий архив: 2005.07.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.039 c
11-1101963783
BelchonokH
2004-12-02 08:03
2005.07.11
Message типа MouseWheel


3-1117074967
Ярослав
2005-05-26 06:36
2005.07.11
SQL Server Enterprise Manager


1-1118491492
WST
2005-06-11 16:04
2005.07.11
Сортировка списка


1-1118896533
Layner
2005-06-16 08:35
2005.07.11
Как автоматизировать процесс создания однотипных форм


1-1118604210
Warstone
2005-06-12 23:23
2005.07.11
Связь Dll и TPanel





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский