Difference between revisions of "Create a new file date/de"
From Lazarus wiki
Jump to navigationJump to search (Code example: don't compare to False, Pascal has a not operator...) |
(Use pascal highlighter) |
||
Line 3: | Line 3: | ||
<br> | <br> | ||
Ändert das Erstellungsdatum einer Datei: | Ändert das Erstellungsdatum einer Datei: | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
function funDateiDatumAendern(strDateiname: string; | function funDateiDatumAendern(strDateiname: string; | ||
strNeuerZeitstempel: string): boolean; | strNeuerZeitstempel: string): boolean; | ||
Line 35: | Line 35: | ||
<br> | <br> | ||
Aufruf unter Windows: | Aufruf unter Windows: | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
if not funDateiDatumAendern('E:\Test.txt', '10.01.2000 14:34:56') then | if not funDateiDatumAendern('E:\Test.txt', '10.01.2000 14:34:56') then | ||
ShowMessage('Fehler'); | ShowMessage('Fehler'); | ||
Line 41: | Line 41: | ||
<br> | <br> | ||
Aufruf unter Linux (Ubuntu): | Aufruf unter Linux (Ubuntu): | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
if not funDateiDatumAendern('/home/user/Dokumente/Test.txt', '10-1-00 14:34:56') then | if not funDateiDatumAendern('/home/user/Dokumente/Test.txt', '10-1-00 14:34:56') then | ||
ShowMessage('Fehler'); | ShowMessage('Fehler'); |
Latest revision as of 20:01, 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 not FileExists(strDateiname) 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 not funDateiDatumAendern('E:\Test.txt', '10.01.2000 14:34:56') then
ShowMessage('Fehler');
Aufruf unter Linux (Ubuntu):
if not funDateiDatumAendern('/home/user/Dokumente/Test.txt', '10-1-00 14:34:56') then
ShowMessage('Fehler');
--Olaf 06:44, 19 July 2013 (UTC)