ich suche nach einer Möglichkeit in Lazarus den Verzeichnisinhalt in einer Listbox anzeigen zu lassen, ich habe dazu auch schon folgendes gefunden:
Code: Alles auswählen
procedure TForm1.GetAllFiles(Path, ExtMask: String; List: TStrings;
SubFolder: Boolean);
var
Attrib, i: Integer;
Search: TRawbyteSearchRec;
begin
Attrib := faArchive + faReadOnly + faHidden;
if Path[Length(Path)] <> '\' then Path := Path + '\';
with TStringList.Create do
try
CommaText := ExtMask;
for i := 0 to Count - 1 do
if FindFirst(Path + '*.' + Strings[i], Attrib, Search) = 0 then
repeat
List.Add(AnsiUpperCase(Path + Search.Name));
until FindNext(Search) <> 0;
FindClose(Search);
finally Free end;
if SubFolder then
begin
if FindFirst(Path + '*.*', faDirectory, Search) = 0 then
begin
repeat
if ((Search.Attr and faDirectory) = faDirectory) and
(Search.Name[1] <> '.') then
GetAllFiles(Path + Search.Name, ExtMask, List, SubFolder);
until FindNext(Search) <> 0;
FindClose(Search);
end;
end;
end;
Das will wohl aber nicht so ganz wie ich es möchte, der Coompiler spring zu "FindeClose" und meldet "form1_.pas(98,21) Error: Incompatible type for arg no. 1: Got "TRawbyteSearchRec", expected "QWord""
Nun weiss ich leider nicht wirklich weiter.... vielleicht kann mir ja hier jemand helfen.
Besste Grüße & Danke vorab - Patrick.