Pointermath

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von Laufente · begonnen am 10. Dez 2019 · letzter Beitrag vom 10. Dez 2019

Vorheriger Beitrag

Nächster Beitrag

Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge

Delphi 10.2 Tokyo Professional

AW: Pointermath

10. Dez 2019, 10: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 10:43 Uhr)