Listbox markieren

[marabu]

Dann Schluss mit blinde Kuh - wo ist dein Code?

PS:

Habe deinen Code untersucht und festgestellt, dass da noch einige Unterschiede zwischen D5 und D7 sind. Hier hast du einen Ersatz für das fehlende TryStrToDate():

Delphi-Quellcode:

function TryStrToDate(const s: String; var dt: TDateTime): Boolean;
begin
  try
    dt := StrToDate(s);
    Result := true;
  except
    Result := false;
  end;
end;

Die TFormatSettings gibt es noch nicht, es wird noch mit globalen Einstellungen gearbeitet. Den Aufruf von GetFormatSettings kannst du dir dann sparen. Das hier ist aber noch nötig - sicher ist sicher:

Delphi-Quellcode:

DateSeparator := '.';
ShortDateFormat := 'dd.mm.yy';

Du kannst die von dir benutzte Delphi-Version übrigens in dein DP USer-Profil eintragen.

Freundliche Grüße vom marabu