Records

[opfer.der.genauigkeit]

Oder so..

Delphi-Quellcode:

type 
  PData = ^TData; 
  TData = record 
    test1 : string; 
    test2 : integer; 
  end;

Delphi-Quellcode:

var
  pDataRec: PData;
begin
  New(pDataRec); // oder GetMem(pDataRec, SizeOf(PData));
  
  pDataRec^.test1 := 'Hallo';  // ^ dient zur Abwärtskompatibilität wäre auch pDataRec.test1 möglich seit D5 oder so..
  pDataRec^.text2 := 1;

  Dispose(pDataRec); // oder FreeMem(pDataRec, SizeOf(PData));
end;