Records per Prozedur übergeben

[DGL-luke]

wenn sie exakt gleich aufgebaut sind, kann man sie auch hin- und hercasten

Delphi-Quellcode:

type
  Trec1 = record
    num: integer;
  end;
  Trec2 = record
    num: integer;
  end;

var r1: TRec1; r2: TRec2
begin
r1.num := 5;
TRec1((@r2)^) := r1; //wie ging das gleich nochmal mit den Pointern?
//r2.num sollte jetzt 5 sein
end;

Ist aber NICHT zu empfehlen. Wenn du von einer Unit auf eine prozedur in der anderen zugreifen kannst, sollte auch der Typ verfügbar sein.