Hi
Hab in einem alten Programm von mir folgenden Code gefunden:
Code:
procedure TForm1.Terminkontrolle;
var i:integer;
begin
For i:=0 to ListView1.Items.Count-1 do
If (StrtoDate(ListView1.Items.Item[i].Caption)<=Date+14)and(StrtoDate(ListView1.Items.Item[i].Caption)>=Date)
then ListView1.Items.Item[i].ImageIndex:=0
else
If StrtoDate(ListView1.Items.Item[i].Caption)<Date
then ListView1.Items.Item[i].ImageIndex:=1
else ListView1.Items.Item[i].ImageIndex:=-1;
end;
Ist zwar nicht das wonach du eigenltich suchst, aber das müßte dir doch etwas weiterhelfen.
Ansonsten schreib dir doch ne procedure, die das ListView nach dem Datum sortiert.
Gruß