Hi Leute,
ich hab folgendes Problem: Ich lese in alle in einem bestimmten Verzeichnis liegenden Dateinamen in ein StringGrid, aber die Namen sind nicht alphabetisch sortiert sondern in der Reihenfolge wie sie gespeichert sind (FAT-Tabelle?). Wie kann ich es erreichen, daß die Dateinamen gleich alphabetisch eingelesen werden?
Erklährung:
Es sollen im Verzeichnis C:\Test alle Dateien mit Endung *.be eingelesen werden in ein StringGrid (sgListe).
Delphi-Quellcode:
procedure TForm1.btnEinlesenClick(Sender: TObject);
var sr: TSearchRec;
i,m,n: integer;
begin
for m:=1 to sgListe.RowCount do
for n:=0 to sgListe.ColCount do
sgListe.Cells[n,m]:='';
sgListe.RowCount:=2;
i:=1;
if DirectoryExists('C:\Test')then
begin
FindFirst('C:\Test\*.be', faAnyFile, sr);
sgListe.Cells[0,i]:=IntToStr(i);
sgListe.Cells[1,i]:=sr.Name;
try
while (FindNext(sr) = 0) do
begin
i:=i+1;
sgListe.RowCount:=i+1;
sgListe.Cells[0,i]:=IntToStr(i);
sgListe.Cells[1,i]:=sr.Name;
end;
finally;
FindClose(sr);
end;
end else
ShowMessage('Verzeichnis nicht vorhanden!');
end;
Was muß ich da ändern?