AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Wo kommt die $33 her?

Ein Thema von Carsten1234 · begonnen am 14. Jan 2009 · letzter Beitrag vom 14. Jan 2009
 
Carsten1234

Registriert seit: 9. Apr 2008
Ort: Vechelde
178 Beiträge
 
Delphi 8 Professional
 
#1

Wo kommt die $33 her?

  Alt 14. Jan 2009, 11:27
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
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz