Die Umsetzung ist korrekt bis auf die ungeklaerte Frage des Structure Packing. PTest statt P_Test als Name fuer den Pointertyp ist besser.
Aufruf:
Delphi-Quellcode:
var
TestP: PTest;
begin
TestP := GetTest;
ShowMessageFmt('iValue=%d cName=%s', [TestP^.iValue, TestP^.cName]);
end;