Schnellste Überprüfung des Inhaltes eines Arrays

[Nuclear-Ping]

Versuchs mal mit einer TStringList statt TList. Das dürfte auch gut gehen.

Delphi-Quellcode:

var
  ListSchicht: TStringList;
begin
  ListSchicht := TStringList.Create;

  try
    ListSchicht.Add (FormatDateTime ('dd.mm.yyyy', Now {oder jedes andere TDateTime Datum}));

    if ListSchicht.IndexOf ('01.01.2008') = -1 then
      // Datum nicht vorhanden
    else 
     // Datum vorhanden
  finally
    FreeAndNil (ListSchicht);
  end;
end;