Hallo zusammen,
ein aktuelles Datum soll (ohne den Punkt dazwischen) nach HEX konvertiert und in eine Textdatei geschrieben werden.
Im ersten Schritt wird das aktuelle Datum in einen String transferiert mit
Delphi-Quellcode:
var DTStr: string;
begin
DateTimeToString(DTStr, 'ddmmyyyyhhmmss', Now)
Im zweiten Schritt erfolgt die Umwandlung nach Hex via
DTStr:= StrToHex(DTStr);
und im letzten Schritt wird DTStr in eine Textdatei geschrieben
Delphi-Quellcode:
{$I-}
System.AssignFile(FOut, FILENAME);
System.Rewrite(FOut);
{$I+}
if System.IOResult = 0 then
begin
System.Writeln(FOut, DTStr);
System.CloseFile(FOut);
end;
Ausgehend vom heutigen Datum (14.01.2009) sehe ich in der Datei, wenn ich sie mit einem Texteditor öffne (Windows Editor, TextPad, MED) die Zeile:
3134303132303039
Besser lesbar:
31 34 30 31 32 30 30 39
Passt.
Schaue ich mir hingegen die Inhalt der Textdatei mit einem Hex-Editor (HexEdit) an, sehe ich dort:
33313334333033313332333033303339
Besser lesbar:
33 31 33 34 33 30 33 31 33 32 33 30 33 30 33 39
Fragen:
1) Woher kommt immer diese 33?
2) Kann man das "Dazwischenschreiben" der 33 unterbinden?
Dank vorab und Gruß, Carsten