Ordner durchsuchen

[StoRmtec]

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

[Luckie]

Guck mal in der Hilfe unter ChangeFileExt.

[StoRmtec]

Danke aber wie kann ich das dann in die CheckListBox einbinden das
er mir dann auch nicht anzeigt.

Mfg
StoRmtec

[Klaus01]

Könnte auch so gehen, oder?

    lb.Items.Append(copy(sr.FindData.cFileName,1,pos('.',sr.FindData.cFileName)-1))); Grüße
Klaus

[ste_ett]

Damit findest du den ersten Punkt im Namen.
Das muss nicht zwingend der letzte sein, der die Dateiendung kennzeichnet.

Besser ist es mit
ChangeFileExt() .

[Luckie]

@StoRmtec: Mann kann als zweiten Parameter auch einen Leerstring übergeben.

[StoRmtec]

So wird das ausgeben in die CheckListBox

Delphi-Quellcode:

    path := 'C:\ppi\';
  getfiles(checkListBox1, path, 'pcl'); //ini ist die Dateiendung nach der gesucht

Wo muss ich das dann dazu machen das nur der Name da steht und die endung nicht mehr danke.

Mfg
StoRmtec

[ste_ett]

In dieser Zeile
lb.Items.Append(sr.FindData.cFileName); musst du den Parameter für Append anpassen.

[Klaus01]

wenn ich das richtig verstanden habe, dann so

   lb.Items.Append(changeFileExt(sr.FindData.cFileName,'')); Grüße
Klaus

[StoRmtec]

Okay danke es funktioniert.