[Delphi] FileListBox sorteren op extensie?

[Spinal]

Is het mogelijk om (in Delphi 3) een FileListBox te sorteren op extensie?
Delphi sorteert standaard op naam, wat totaal niet handig is

[Verwijderd]

Ik heb even gekeken in Delphi 5 en het lijkt mij niet echt mogelijk

Je kunt er natuurlijk altijd zelf eentje maken, dat is helemaal niet moeilijk, als je hulp nodig hebt daarbij...

[Spinal]

Het zou me denk ik wel alleen lukken, als ik de source had! Die schijnt bij Delphi Client/Server te zitten maar bij mij niet

Dus als je me daarmee zou kunnen helpen, graag!

[freddifish]

Ik heb hier Delphi C/S versie 1 tm 5 dus...(o nee delphi 5 heet Enterprise ;-)) => mail

[Spinal]

www.delphi32.com geeft bagger, www.torry.net ook. Het mailtje leverde ook niet het gewenste resultaat.
Is het wel mogelijk? Ik ben een vrij ervaren Pascal programmeur, en in TP7 kan het echt niet! In Delphi dan ook niet? De component TFileListBox werkt met FindFirst en FindNext, die hetzelfde werken als in Pascal. Is het echt niet mogelijk?

[MerijnB]

het makelijkst is denk ik zelf een compnent maken dat overerft van TFileListBox

[Spinal]

Hm... Tja, ik heb niet echt veel ervaring met nieuwe componenten maken

Welke idioot bij Borland heeft bedacht om het sorteren maar weg te laten?
In Turbo Pascal 3 kon het al niet, dan zou je toch denken dat ze naar een jaar of 10 het wel hebben kunnen programmeren!!!

[Verwijderd]

Volgens mij werkt dit [getest in Delphi6]

code:

unit FileCtrlEx;

interface

uses
  FileCtrl;

type
  TFileListBoxEx = class(TFileListBox)
  private
    FExtensionSort: Boolean;
    procedure SetExtensionSort(const Value: Boolean);
  protected
    procedure ReadFileNames; override;
  public
    procedure SortByExt;
  published
    property ExtensionSort: Boolean read FExtensionSort write SetExtensionSort;
  end;

procedure Register;

implementation

uses
  Classes, SysUtils;

function ExtCompare(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result := CompareText(ExtractFileExt(List[Index1]),
    ExtractFileExt(List[Index2]));
end;

{ TFileListBoxEx }

procedure TFileListBoxEx.ReadFileNames;
begin
  inherited;
  if ExtensionSort then SortByExt;
end;

procedure TFileListBoxEx.SetExtensionSort(const Value: Boolean);
begin
  if Value <> FExtensionSort then
  begin
    FExtensionSort := Value;
    Sorted := Sorted and not FExtensionSort;
    ReadFileNames;
  end;
end;

procedure TFileListBoxEx.SortByExt;
var
  TmpList: TStringList;
  i: Integer;
begin
  Sorted := False;
  TmpList := TStringList.Create;
  try
    TmpList.Assign(Items);
    TmpList.CustomSort(ExtCompare);
    Items.Assign(TmpList);
  finally
    TmpList.Free;
  end;
end;

procedure Register;
begin
  RegisterComponents('Win 3.1', [TFileListBoxEx]);
end;

end.

[Creepy]

Waarom niet een gewone listview waar je alle filenamen in zet??

Een listbox heeft een onCompare event (als je sorttype op stdata zet tenminste).

code:

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin

end;

En vergelijk dan bijv de Item1.caption en item2.caption met elkaar. Als item1 groter is dan item2 moet je compare op 1 zetten, -1 als item1 kleiner is dan item2, en 0 als ze gelijk zijn.

Ah.. en om de sorteer routine maar helemaal af te maken:

code:

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
var ext1, ext2: string;
begin
     ext1:=extractfileext(item1.caption);
     ext2:=extractfileext(item2.caption);

     if ext1 < ext2 then
      compare:=1
     else if ext1 > ext2 then
      compare:=-1
     else
      compare:=0;
end;

Moet je alleen nog de items van de listview vullen..

[Spinal]

DiFool, hartstikke bedankt!
Het werkt perfect, en ik zal je naam noemen in het helpbestand van mijn programma

[Verwijderd]

Kijk vooral ook ff bij linschke. Goed tree/list component waar volgens mij ook een file-versie bijzit, want wat je nu gebruikt is echt uit de prehistorie [lees ca 3 jaar oud]

[Creepy]

Op zaterdag 18 mei 2002 02:37 schreef DiFool het volgende:
Kijk vooral ook ff bij linschke. Goed tree/list component waar volgens mij ook een file-versie bijzit, want wat je nu gebruikt is echt uit de prehistorie [lees ca 3 jaar oud]

Daarom zei ik ook al: waarom niet een gewone listview met een eigen oncompare handler??

[Spinal]

Ja, maar het werkt wel
Alleen jammer van die icoontjes... Die wil ik ook nog veranderen

(Ja, ik weet het... ik zeur en ik ben ontzettend lastig)