mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-01 13:03:43 +02:00
24 lines
657 B
ObjectPascal
24 lines
657 B
ObjectPascal
uses
|
|
FileUtil;
|
|
var
|
|
PascalFiles: TStringList;
|
|
begin
|
|
PascalFiles := TStringList.Create;
|
|
try
|
|
FindAllFiles(PascalFiles, LazarusDirectory, '*.pas;*.pp;*.p;*.inc', true); //find e.g. all pascal sourcefiles
|
|
ShowMessage(Format('Found %d Pascal source files', [PascalFiles.Count]));
|
|
finally
|
|
PascalFiles.Free;
|
|
end;
|
|
end;
|
|
// or
|
|
begin
|
|
//No need to create the stringlist; the function does that for you
|
|
PascalFiles := FindAllFiles(LazarusDirectory, '*.pas;*.pp;*.p;*.inc', true); //find e.g. all pascal sourcefiles
|
|
try
|
|
ShowMessage(Format('Found %d Pascal source files', [PascalFiles.Count]));
|
|
finally
|
|
PascalFiles.Free;
|
|
end;
|
|
end;
|