INDY 10 Project, TRECORD im FUNKTIONSAUFRUF ENTFERNEN

[bernhard_LA]

geht das auch für den Rückgabewert einer Funktion ?
function ByteArrayToMyRecord(ABuffer: TBytes): var AnyRecord; ????

Delphi-Quellcode:

function MyRecordToByteArray(var AMyRecord ): TBytes; 
var   LSource: PAnsiChar;
begin
   LSource := PAnsiChar(@AMyRecord);
   SetLength(Result, SizeOf(TMyRecord));
   Move(LSource[0], Result[0], SizeOf(aMyRecord)); end;


function ByteArrayToMyRecord(ABuffer: TBytes): TMyRecord; 
var   LDest: PAnsiChar;
begin
   LDest := PAnsiChar(@Result);
   Move(ABuffer[0], LDest[0], SizeOf(TMyRecord)); 

end;