Difference between revisions of "Create a new file date/de"
From Free Pascal wiki
Jump to navigationJump to search (Update code example (Utf8ToSys is a no-op by default in Lazarus)) |
|||
Line 14: | Line 14: | ||
// Prüft, ob die Datei vorhanden ist | // Prüft, ob die Datei vorhanden ist | ||
− | if FileExists | + | if FileExists(strDateiname) = False then |
exit; | exit; | ||
Line 27: | Line 27: | ||
// Setzt das neue Dateidatum | // Setzt das neue Dateidatum | ||
− | FileSetDate | + | FileSetDate(strDateiname, DateTimeToFileDate(datNeuesDateidatum)); |
Result := True; | Result := True; |
Revision as of 19:59, 16 January 2020
Deutsch (de)
Ändert das Erstellungsdatum einer Datei:
function funDateiDatumAendern(strDateiname: string;
strNeuerZeitstempel: string): boolean;
var
datNeuesDateidatum: TDateTime;
begin
Result := False;
// Prüft, ob die Datei vorhanden ist
if FileExists(strDateiname) = False then
exit;
// legt den aktuellen Datums- und Zeitstempel der Datei fest
// Die Schreibweise des Datums richtet sich nach dem Betriebssystem
// Die Schreibweise der Uhrzeit richtet sich nach Sommer- und Winterzeit
datNeuesDateidatum := StrToDateTime(strNeuerZeitstempel);
// StrToTime('03:00')
// TryStrToDateTime
// Setzt das neue Dateidatum
FileSetDate(strDateiname, DateTimeToFileDate(datNeuesDateidatum));
Result := True;
end;
Aufruf unter Windows:
if funDateiDatumAendern('E:\Test.txt', '10.01.2000 14:34:56') = False then
ShowMessage('Fehler');
Aufruf unter Linux (Ubuntu):
if funDateiDatumAendern('/home/user/Dokumente/Test.txt', '10-1-00 14:34:56') = False then
ShowMessage('Fehler');
--Olaf 06:44, 19 July 2013 (UTC)