Thema: Delphi Wo kommt die $33 her?

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.163 Beiträge
 
Delphi 12 Athens
 
#11

Re: Wo kommt die $33 her?

  Alt 14. Jan 2009, 12:16
Zitat von Carsten1234:
Der Wunsch eines Firmwareentwicklers auf der Gegenseite ist, dass in der Textdatei lediglich
3134303132303039
Zitat von xaromz:
indem Du einfach den String in die Datei schreibst, ohne in vorher nach Hex zu wandeln.
oder will derEntwickler es Binär haben

wie dem Auch sei, entweder ist das im Ausgangspost richtig, oder dieses hier
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
  var DTStr: string;
    FOut: TextFile;

  begin
    DateTimeToString(DTStr, 'ddmmyyyyhhmmss', Now);
    System.AssignFile(FOut, 'test.txt');
    System.Rewrite(FOut);
    if System.IOResult = 0 then
    begin
      System.Writeln(FOut, DTStr);
      System.CloseFile(FOut);
    end;
PS: das 33313334333033313332333033303339 im Ausgangspost ist die Hexadezimale Darstellung der Hexadezimalen Dastellung des Datumsstrings.
schau dir die datei doch mal mit einem Texteditor an und nicht mit 'nem Hexeditor
Code:
33313334333033313332333033303339
 3 1 3 4 3 0 3 1 3 2 3 0 3 0 3 9

3134303132303039
 1 4 0 1 2 0 0 9

14012009
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat