Danke für Eure Lösungsvorschläge.
Ich habe jetzt kapiert, wie ich mit ScanDateTime umgehen muss.
Ich habe den Lösungsvorschlag leicht abgewandelt, bin sehr zufrieden damit.
Code: Alles auswählen
program project1;
uses
SysUtils, DateUtils;
const
SDN : TWeekNameArray = ('Sun','Mon','Tue','Wen','Thu','Fri','Sat');
SMN : TMonthNameArray = ('Jan','Feb','Mar','Apr','May','Jun',
'Jul','Aug','Sep','Oct','Nov','Dec');
var
dt: TDateTime;
fs: TFormatSettings;
begin
fs := DefaultFormatSettings;
fs.ShortMonthNames := SMN;
fs.ShortDayNames := SDN;
dt := ScanDateTime('DDD"," dd mmm yyyy hh:nn:ss','Fri, 14 May 2021 13:14:38', fs);
writeln(DateTimeToStr(dt));
dt := ScanDateTime('DDD"+++"dd"$"mmm"§"yyyy"T"hh:nn:ss','Thu+++13$Oct§2071T13:14:38', fs);
writeln(DateTimeToStr(dt));
ReadLn;
end.
Vielen Dank nochmal
Fritz