Neusten Termin aus ListView

[Tpercon]

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ß