Macht auch nichts anderes, sieht aber besser aus:
Delphi-Quellcode:
type
P2Single = ^T2Single;
T2Single = record
a: Single;
b: Single;
end;
procedure Test(p: P2Single);
begin
p^.a := 54.23; // 1. Single
p^.b := 12.23; // 2. Single
inc(p, 1); // Nächstes Paar
p^.a := 54.8; // 3. Single
p^.b := 2.8; // 4. Single
end;
Test kann natürlich auch mit einem normalen Pointer aufgerufen werden.