Records per Prozedur übergeben

[turboPASCAL]

Delphi-Quellcode:

type TMyRecord = Record
       VarStr: String;
       VarByt: Byte;
       //...
     end;

var
  MyRec: TMyRec;

procedure Foo(ValueRec: TMyRec);
var aString : String;
begin
  aString := ValueRec.VarStr;
  //...
end;

function Bla: TMyRec;
begin
  Result.VarStr := 'Hello';
end;

procedure Init...
begin
  MyRec.VarStr := 'Hallo';
  //...
   
  Foo(MyRec);
  //...
  ShowMessage( PChar(Bla.VarStr) );
end;