Hy @all
Und zwar durchsuche ich Ordner und lasse die Dateien in der ChecklistBox ausgeben.
Hier der Code:
Delphi-Quellcode:
procedure GetFiles(LB : TCheckListBox; Path, ext: string);
var
SR : TSearchRec;
err : integer;
dummy : string;
begin
err := FindFirst(Path+'*.'+ext, faAnyFile, SR);
while err = 0 do
begin
if (sr.name<>'.') and (sr.name<>'..') then
if ((sr.Attr and fadirectory)<>0) then
begin
dummy := path + sr.name + '\';
getfiles(lb, dummy, ext);
end
else
lb.Items.Append(sr.FindData.cFileName);
err := findnext(sr);
end;
FindClose(SR);
end;
Da wird mir aber auch in der CheckListBox die Endung mitgegeben.
Wie kann ich das jetzt machen das er mir die Endung nicht mit anzeigt.
Danke
StoRmtec