Pobranie listy plikow bez rozszerzenia

Jak pobrac liste plikow bez rozszerzenia i wpisac je do listboxa?

Tak samo jak inne pliki (poszukaj na forum) tylko musisz funkcją Pos szukać kropki w nazwie, jeśli nie ma wrzucasz do ListBoxa...

Zamiast Pos używaj ExtractFileName()

:)

 
procedure TForm1.Button1Click(Sender: TObject);
var
 SR : TSearchRec;
 Fik, stopka, i : integer;
 nazwa : string;
begin
 Fik := FindFirst( 'e:/' + '/*.*', faArchive, SR);
 while (Fik = 0) do
  begin
    nazwa := sr.Name;
    for i :=1 to length (nazwa) do
     if nazwa[i] = '.' then stopka := i;
    Delete (nazwa, stopka, length(nazwa) - stopka + 1);
    listbox1.Items.Add(nazwa);
    Fik := FindNext(SR);
  end;
end;