FreePascal.ru

... var
dir: TSearchRec;
ppidStr, statFile: string;
statF: Text;
childPID, ppid: LongInt;
parts: TStringList;
begin
result := TList.Create;
if FindFirst('/proc/*', faDirectory, dir) = 0 then
begin
repeat
if (dir.Name[1] in ['0'..'9']) then
begin
statFile := '/proc/' + dir.Name + '/stat';
try ...

... if HTTPClient.ResponseStatusText='' then begin
S:= HTTPClient.GetHeader(ST,'Content-Length');
If S<>'' then Result := S.ToInt64;
end;
HTTPClient.Free;
St.Free;
end else
begin
try
if FindFirst(FPath , faAnyFile, sr) = 0 then
begin
Result := Sr.Size;
end
finally
FindClose(sr);
end
end
end;

... RightPanel: TPanel;
ActivePanel: ^TPanel;

procedure LoadPanel(var Panel: TPanel);
var
SR: TSearchRec;
begin
SetLength(Panel.Files, 0);
if FindFirst(Panel.Path + '/*', faAnyFile, SR) = 0 then
begin
repeat
SetLength(Panel.Files, Length(Panel.Files) + 1);
Panel.Files[High(Panel.Files ...

... A5),' ',ORD(A5[1]));

A5:='GF*'; //НАЧАЛО ИМЕНИ КАТАЛОГА, ДРУГАЯ ЧАСТЬ СОДЕРЖИТ ПРОБЕЛ И НЕЛАТИНСКИЕ СИМВОЛЫ
S5:='SLUCILASJ LAZA';
Q2:=SYSUTILS.findfirst(A5,faDirectory+faAnyFile+fahidden+fareadonly,Info);
IF Q2=0 THEN S5:=INFO.NAME;
SYSUTILS.FINDCLOSE(Info);
WRITELN('__INFO.NAME__ ',StringCodePage ...

... integer);
begin
b&#46;Width &#58;= sz; b&#46;Height &#58;= sz;
b&#46;Canvas&#46;StretchDraw(b&#46;Canvas&#46;ClipRect, bmp);
end;
begin
if FindFirst(dir + '*&#46;jpg', faAnyFile, sr) = 0 then
begin
img &#58;= TPicture&#46;Create;
bmp &#58;= TBitmap&#46;Create;
b1 &#58;= TBitmap&#46;Create ...

Очередное "Чеб, ты дибииил!"
Или почему линуксовые версии никак не работали.
If FindFirst(path + '*&#46;*', faDirectory, SearchRec) = 0
Они не могли найти ни одной папки чтобы искать файлы в них!
Угадайте с трёх раз, почему.
Винда мудра и долготерпелива и подобное укодище, небось, считается частью ...

... какие методы существуют для определения наличия файлов в файловой системе ext4 ?

Для ext4 файлы в разном регистре - разные файлы. Потому прямого способа нет.
Можно считать файлы в интересующем каталоге через findfirst/findnext и пробежаться по списку файлов, сравнивая названия без учета регистра.

... Error');
end;
MSWord&#46;Documents&#46;Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
infomemo&#46;Lines&#46;Add('Word запущен!');
if FindFirst(dirPath+'/' + '*&#46;*', faArchive, SR) = 0 then
begin
repeat
DirList&#46;Add(StringReplace(dirPath+'\'+ SR&#46;Name, '/', '\',&#91 ...

... папка или файл или объект вообще не существует?

procedure TForm1&#46;Button1Click(Sender&#58; TObject);
var R&#58; TRawByteSearchRec;
begin
FindFirst(Edit1&#46;Text, faAnyFile, R);
end;

R.Attr покажет, на какой объект указывает путь и его наличие.

Если объекта нет, то R.Attr = faAnyFile ...

... SR&#58; TSearchRec;
begin
// LazGetLanguageIDs(Lang, FallbackLang);
try
// Сделаем попытку удаления всех ранее нагенеренных файлов
if FindFirst(GetTempDir + '*&#46;slk', faAnyFile, SR) = 0 then
begin
repeat
DeleteFile(GetTempDir + SR&#46;Name)
until
FindNext(SR) <> 0;
FindClose(SR ...

... 58; TTreeView; aRoot&#58; TTreeNode;
Path&#58; string; Recurse&#58; boolean);
var
NewNode&#58; TTreeNode;
SRec&#58; TSearchRec;
begin
if FindFirst(Path + '*&#46;*', SysUtils&#46;faAnyFile, SRec) = 0 then
repeat
if (sRec&#46;Name = '&#46;') or (sRec&#46;Name = '&#46;&#46;') then
Continue ...

... 93;)
else
Die(RuEn('Не удалось открыть файл "%0"','Failed to open file "%0"'),&#91;AFileName&#93;);
inherited Create(h);
end;

Function FindFirst (Const Path &#58; TFileNameString; Attr &#58; Longint;
out Rslt &#58; TSearchRec) &#58; Longint;
begin
Name&#58;= Path;
Rslt&#46;Attr&#58 ...

FindFirstUtf8 это же из лазаруса, в модулях fpc его нет. Если кодировка консоли совпадает с системной кодировкой, то и FindFirst будет нормально искать - какой набор байтов утилита получила, такой и надо найти.

С проверкой на символическую ссылку, не понял, как мне это поможет. Ну обнаружу я что ...

С появлением файловых систем с символическими ссылками, один и тот-же файл или каталог поиском по маске функциями findfirst и findnext за один раз можно найти несколько раз. По имени файла и его пути уже гарантированно не определить, обрабатывался этот файл или нет. И чтобы обработать найденные файлы ...

... 58; TTreeView; aRoot&#58; TTreeNode;
Path&#58; string; Recurse&#58; boolean);
var
NewNode&#58; TTreeNode;
SRec&#58; TSearchRec;
begin
if FindFirst(Path + '*&#46;*', SysUtils&#46;faAnyFile, SRec) = 0 then
repeat

if (sRec&#46;Name = '&#46;') or (sRec&#46;Name = '&#46;&#46;') then
Continue ...