1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  lbSortierliste.Items.Clear;
  For i:= 0 to cbMischen.Items.Count - 1 do  //unterschiedliche Datumsangaben
  Begin
    Sx:= cbMischen.Items.Strings[i];
    if Trim(Sx) <> '' then lbSortierliste.Items.Add(Sx);
  end;
  _DuplicateClear.Click;
  lbDatum.Items.AddStrings(lbSortierliste.Items);
  lbDatum.ItemIndex:= 0;
  txtDatum.Text:= lbDatum.Items.Strings[0];					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TfmFehlerteufel._DuplicateClearClick(Sender: TObject);
var
  Sortierliste : TStringList;
begin
  Sortierliste:= TStringList.Create;
  Sortierliste.Sorted:= True;
  Sortierliste.Duplicates:= DupIgnore;
  Sortierliste.AddStrings(lbSortierliste.Items);
  lbSortierliste.Items.Clear;
  lbSortierliste.Items.AddStrings(Sortierliste);
  Sortierliste.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

function CompareDates(List: TStringList; Index1, Index2: Integer): Integer;
var
  d1, d2: TDateTime;
begin
  d1 := StrToDate(List[Index1]);
  d2 := StrToDate(List[Index2]);
  if d1 < d2 then
    Result := -1
  else if d1 > d2 then Result := 1
  else
    Result := 0;
end;

procedure TfmFehlerteufel._DuplicateClearClick(Sender: TObject);
var
  Sortierliste : TStringList;
begin
  Sortierliste:= TStringList.Create;
  // sortiert sollten Dupletten schneller zu finden und entfernen sein
  Sortierliste.Sorted:= True; 
  Sortierliste.Duplicates:= DupIgnore;
  Sortierliste.AddStrings(lbSortierliste.Items);
  // ICh weisz jetzt nicht, sorted= true nicht Customsort direkt wieder zunichte macht
  Sortierliste.Sorted:= false;
  Sortierliste.CustomSort(CompareDates);
 
  lbSortierliste.Items.Clear;
  lbSortierliste.Items.AddStrings(Sortierliste);
  Sortierliste.Free;
end;