Talk:Create a new file date/de
From Lazarus wiki
Jump to navigationJump to search
Problematisch bei Eingabe
Bei falscher Eingabe wird eine Exception geworfen was zum Abbruch führt,
mal als Beispiel:
{$mode objfpc}
program strtodate;
uses sysutils;
function funDateiDatumAendern(OS,strNeuerZeitstempel: string): boolean;
var datNeuesDateidatum: TDateTime;
begin
Result := False;
try
datNeuesDateidatum := StrToDateTime(strNeuerZeitstempel);
writeln(OS,': "',strNeuerZeitstempel,'" = ',DateTimeToStr(datNeuesDateidatum));
Result:= true;
except //on invalid date or invalid character
on EConvertError do writeln(OS,': "',strNeuerZeitstempel,'" = Fehler im Datumsstring!');
end;
end;
begin
funDateiDatumAendern('Linux','10-1-00 14:34:56');
funDateiDatumAendern('Windows','10.01.2000 14:34:56');
end.
ergibt auf Linux:
Linux: "10-1-00 14:34:56" = 10-1-00 14:34:56
Windows: "10.01.2000 14:34:56" = Fehler im Datumsstring!