Forum: Algorithmen, Datenstrukturen und Klassendesign
by skoschke,
17. Mai 2019
So, wollte mal Rückmeldung geben:
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:
Stream.ReadBuffer(AFieldRec.TextColor, SizeOf(Integer));
Forum: Algorithmen, Datenstrukturen und Klassendesign
by skoschke,
16. Mai 2019
Darauf habe ich gewartet :-)
Ich habe nur D2010 und muss irgendwie den Code, der in XE7 entstand, zum Laufen bringen...
TFieldType ist 2 Bytes und im Stream auch an der richtigen Stelle zu finden.
SetLength(AFieldRec.FontName, TextSize); könnte die Größe verändern, sehe ich mir an...
Dann knallt es bei
Forum: Algorithmen, Datenstrukturen und Klassendesign
by skoschke,
16. Mai 2019
AFieldRec ist ein
type
TNewFieldRec = record
Typ: TFieldTyp;
Page: Integer;
Pos: TRect;
UseTextH: Boolean;
TextH: THandle;
Text: TTXString;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by skoschke,
16. Mai 2019
Hallo,
ich komme nicht weiter, folgende Funktion (Auszug) lädt falsche Dateiinhalte bei Verwendung in D2010, unter XE7 ist es korrekt:
...
Stream.ReadBuffer(loadcount, SizeOf(Integer)); //das sind 4 Bytes
For i := 1 to loadcount do
begin
FillChar(AFieldRec, SizeOf(AFieldRec), #0);