Правила форума
Findfrst.PASЯзык:
Русский
English
uses Dos, Crt;
var
DirInfo : SearchRec;
begin
FindFirst('*.PAS', faArchive, DirInfo);
{ Аналог команды DIR *.PAS }
while DosError = 0 do
begin
WriteLn(DirInfo.Name);
FindNext(DirInfo);
end;
end.
var
DirInfo : SearchRec;
begin
FindFirst('*.PAS', faArchive, DirInfo);
{ Аналог команды DIR *.PAS }
while DosError = 0 do
begin
WriteLn(DirInfo.Name);
FindNext(DirInfo);
end;
end.
::
::
::
