Danke für die Hilfe. Hab mal was versucht.
Wäre es so ungefähr korrekt? Bei mir gehts zumindest. Aber bei mir gings ja bis jetzt auch immer. Kann es schlecht testen, oder?
Delphi-Quellcode:
function IsDate(str: string): Boolean;
var
dt: TDateTime;
DateOne: TDate;
LocalFormatSettings: TFormatSettings;
s: string;
begin
Result := True;
try
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, LocalFormatSettings);
LocalFormatSettings.DateSeparator := '.';
s := FormatDateTime('dd.mm.yyyy', strtodate(str), LocalFormatSettings);
dt := StrToDate(s);
except
Result := False;
end;
end;
Delphi-Quellcode:
for I := 39 to 78 do begin
s := server.Strings[i]; //Datum zB: 17.03.2017 aus der textdatei
if isdate(s)=false then begin
if server.Strings[i]='Nothing'=false then cat1.add(server.Strings[i]);
end;
end;