|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
AW: Pointermath
10. Dez 2019, 11:21
points + 1 ist 1 Byte weiter, nicht 1 Index weiter. Das war aber schon immer so.
Die letzte Zeile muss
point := (points + SizeOf(TiPoint))^;
heißen. Das sollte mit der Array und der Record-Variante funktionieren.
Edit: Dein Code funktioniert bei mir.
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
Geändert von Neutral General (10. Dez 2019 um 11:43 Uhr)
|