Hallo
Ich habe eine Textdatei die so aufgebaut ist
Name1
25.03.1986
Name2
12.05.2017
Name3
19.01.2000
Ich lade dieses Text File in eine TStringlist und muss nun alle Namen in eine Checklistbox übertragen.
Ich habe das so versucht.
Delphi-Quellcode:
function IsDate(str: string): Boolean;
var
dt: TDateTime;
begin
Result := True;
try
dt := StrToDate(str);
except
Result := False;
end;
end;
Delphi-Quellcode:
for I := 39 to 78 do
if isdate(server.Strings[i])=false then if server.Strings[i]='Nothing'=false then checklistbox1.items.add(server.Strings[i]);
end;
Bei mir und den meisten Leuten in Deutschland funktioniert das. Aber in gewissen anderen Sprachen/Ländern/Systemsprachen? funktioniert dieser Code nicht weil das Datum nicht als Datum erkannt wird und somit fälschlicherweise in die checklistbox Liste kommt.
Ich dachte dann, ich kann ganz einfach die "." durch "/" ersetzen und dann wird es als Datum erkannt. Das funktioniert aber nur halbwegs. Ich vermute es liegt daran das TAG und Monat evt noch getauscht werden müssten. Weil sonst nur Datum bis zum 12.Tag/Monat korrekt erkannt werden?
Es gibt doch bestimmt eine Möglichkeit wie ich mein "EUROPA
Standart Datum" aus der Textdatei also zB 17.02.1990 auf jedem Computer system als gültiges Datum prüfen kann?