Laut s.h.a.r.k:
Delphi-Quellcode:
procedure TfrmPlayer.btnSortClick(Sender: TObject);
var
z : LongInt;
Speicher : TFileName;
Changed : Boolean;
s1, s2 : String;
begin
Repeat
Changed := False;
For z := 0 To Length(FileNames) - 2 do
begin
s1 := ExtractFileName(FileNames[z]);
s2 := ExtractFileName(FileNames[z+1]);
if (length(s1) > 0) and (length(s2) > 0) then
if s1[1] > s2[1] then
begin
Speicher := FileNames[z];
FileNames[z] := FileNames[z+1];
FileNames[z+1] := Speicher;
Changed := True;
end;
end;
Until Changed = False;
lbxFiles.Clear;
For z := 0 To Length(FileNames) - 1 do
lbxFiles.Items.Add(ExtractFileName(FileNames[z]));
end;
Zitat:
Ich habs in einem anderen Projekt auch schon so gelöst und erhalte plötzlich überall diese Meldungen. Früher gings mal!
Es ist ja nix falsches daran, wenn du sicherstellst, dass FileNames[z] auch einen String mit mind. 1 Zeichen enthält. Evtl. ist/war in deinem anderen Projekt FileNames[z] auch immer gefüllt...
EDIT: wegen übermüdung gelöscht
