список файлов из директории...

как получить сабж.?  и размер всех файлов
** сорри если это уже ктото спрашивал

В Паскале есть в модуле DOS встроенный тип SearchRec, который содержит все данные о файле.
Содержимое текущего каталога находится следующим образом:

uses dos;
var s:SearchRec;
begin
{$I-}
FindFirst('*.*',AnyFile,s);
while DOSError=0 do
 begin
 FindNext(s);
 end;
{$I+}
end.

В переменной s поля Name содержится имя файла

Сообщение отредактировано: Konstant_IN - 21.08.03, 05:40

http://pascal.sources.ru/faq/index.htm

В переменной s поля Name содержится имя файла  
это как*?
как мне вывести имя всех файлов ?
writeln(s); не работает

Ссылочку в #2 видно?

Попробуй writeln(S.Name)

видно я там смотрел и ненашел .. мож плохо искал..
спасибо

а как отоброжать сразу несколько типов? например *.exe *.bmp *.bat ?

В постинге #1 отображаются все эти "типы"

Можешь просто во время того цикла, который я написал, вставить :"иф".
Т.е. if Copy(s.name,length(s.name)-2,3)='bmp' then {добавляешь его} и т.д.

а как отоброжать сразу несколько типов? например *.exe *.bmp *.bat ?

а надо чтоб невсе а тока эти
------
спасибо

Ну дык, если не один из этих, просто еще раз выполняешь findnext и все.

Ну напиши в ифе еще одно условие! Какая разница, сколько там этих расширений.