Hallo,
ich wollte alle Textdateien aus einem Ordner in einer Listbox anzeigen und habe es so probiert:
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
var
SearchRec: TSearchRec;
begin
FindFirst('C:\Ordner1\Ordner2\' + '*.txt', faAnyFile, SearchRec);
repeat
Listbox1.Items.Add(searchrec.Name);
until FindNext(searchrec) <> 0;
findclose(searchrec);
end;
So werden auch die Dateitypen angezeigt wie z.B. "Test.txt", ich will aber, dass nur "Test" angezeigt wird. Wie geht das?
Bin ein Anfänger, falls es eine dumme Frage ist.
