|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.11.2008, 19:52 | #1 |
Регистрация: 15.05.2008
Сообщений: 3
|
как определить какие файлы есть в папке и вывести их имена в текстовый файл
как определить какие файлы есть в папке и вывести их имена в текстовый файл
|
01.11.2008, 20:03 | #2 | |
Регистрация: 01.11.2008
Сообщений: 4
|
Цитата:
Код:
|
|
04.11.2008, 01:01 | #3 |
Регистрация: 15.05.2008
Сообщений: 3
|
надо чтобы просто писал какие файла и какие подкаталоги есть в папке!
нужна процедура чтобы параметром была только ириктория типо PROCEDURA('c:\') можно и без апострофов! ПОМОГИТЕ ПОЖАЙЛУСТА |
04.11.2008, 05:18 | #4 |
Форумчанин
Регистрация: 12.09.2008
Сообщений: 239
|
uses dos;
procedure dir(s:string;var t1:text); var path:string; findInfo:SearchRec; begin path:=s; if(path[length(path)]<>'\') then path:=path+'\'; path:=path+'*.*'; findfirst(path,AnyFile,findInfo); while DosError=0 do begin writeln(t1,findInfo.Name); findnext(findInfo); end; end; var s:string; inp:text; begin assign(inp,'data.txt'); rewrite(inp); readln(s); dir(s,inp); end.
Надо бы избавиться от привычки ставить многоточие.....
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поскажите как определить ip адреса компьютеров в сети и их имена?ов в | SeЯgey | Работа с сетью в Delphi | 11 | 21.10.2010 20:47 |
Как прочитать текстовый файл на удаленном компьютере/сервере (с авторизацией) | 3lander | Общие вопросы Delphi | 4 | 07.08.2008 18:20 |
как определить в какой кодировке текстовый файл? | PuzzleC | Общие вопросы C/C++ | 7 | 11.12.2007 13:52 |
Как конвертировать из екселя записи в текстовый файл? | Askat | Общие вопросы Delphi | 6 | 02.07.2007 08:15 |
Как загрузить текстовый файл в Delphi? | aidyn | Помощь студентам | 7 | 30.05.2007 20:56 |