Einzelnen Beitrag anzeigen

skoschke

Registriert seit: 6. Jan 2009
523 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: Stream Lesefunktion aus XE7 funktioniert unter D2010 nicht korrekt

  Alt 17. Mai 2019, 06:04
So, wollte mal Rückmeldung geben:

Zitat:
Stream.ReadBuffer(AFieldRec.FontName[1], TextSize);
gefällt mir viiiieeeel besser, irgendwie war das Pointer-Handling für mich undurchsichtig...

Grund für die falsch gelesenen Inhalte war aber ein ganz anderer:
Da ist bei der Übernahme des Codes von XE7 glatt eine Zeile verloren gegangen:
Delphi-Quellcode:
      Stream.ReadBuffer(AFieldRec.TextColor, SizeOf(Integer));
      Stream.ReadBuffer(AFieldRec.TXFrame,SizeOf(TTXFrame)); <------- die fehlte
      Stream.ReadBuffer(TextSize, SizeOf(Integer));
      SetLength(AFieldRec.FontName, TextSize);
      Stream.ReadBuffer(Pointer(AFieldRec.FontName)^, TextSize);
und damit hat alles nachfolgende natürlich Murks gelesen!

Danke für Eure Unterstützung.

Ciao
Stefan
  Mit Zitat antworten Zitat