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!