FindFirst, FindNext- Dateinamen sortiert einlesen

[Lantis]

Hi jpg,
mit TStringList klappt's.
Sieht jetzt bei mir ungefähr (gekürzt) so aus:

Delphi-Quellcode:

procedure TForm1.Einlesen(Sender: TObject);
var sr: TSearchRec;
    i,m,n: integer;
    TempList: TStringList;
begin
  TempList := TStringList.Create;
  TempList.Sorted:=True;
  for m:=1 to sgListe.RowCount do
   for n:=0 to sgListe.ColCount do
   sgListe.Cells[n,m]:='';
   sgListe.RowCount:=2;
  if DirectoryExists('C:\Test')then
  begin
    try
      FindFirst('C:\Test\'+'*.be',faAnyFile,sr);
      TempList.Add(copy(sr.Name,1,pos('.',sr.Name)-1));
      while (FindNext(sr) = 0) do
        TempList.Add(copy(sr.Name,1,pos('.',sr.Name)-1));
      i:=0;
      while not (i=TempList.Count) do
      begin
        i:=i+1;
        sgListe.RowCount:=i+1;
        sgListe.Cells[0,i]:=TempList.Strings[i-1];
      end;
    finally;
      TempList.Free;
      FindClose(sr);
    end;
//   igendwo blahblah:=IntToStr(i)+' BE-Dateien gefunden!';
    Auslesen(Sender);
  end else
//  igendwo blahblah:='Verzeichnis nicht vorhanden!';
end;

Danke an Alle!