Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DelphiDeveloper,
1. Mär 2004
das muesste es doch eigentlich tun oder?
5: //Datum + Zeit
begin
Compare := trunc(((StrToDate(Item1.SubItems) + StrToTime(Item1.SubItems)) * 10000) -
((StrToDate(Item2.SubItems) + StrToTime(Item2.SubItems)) * 10000));
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DelphiDeveloper,
1. Mär 2004
ich hatte sowas auch mal gebraucht und ich habe folgendes gemacht
1. globale variablen
sortcol: integer;
ascending_sort: boolean;
2 dann schreibst du folgende events im listview
procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;