INDY 10 Project, TRECORD im FUNKTIONSAUFRUF ENTFERNEN

[Bummi]

getestet

Delphi-Quellcode:

Procedure ByteArrayToMyRecord(ABuffer: TBytes;out MyRecord;size:Integer);
begin
   Move(ABuffer[0], MyRecord, size);
end;

procedure TForm1.Button1Click(Sender: TObject);
type
  Tr=Record
    i:Integer;
    s:Array[0..9] of AnsiChar;
  end;
var
  B:TBytes;
  r:Tr;
begin
  r.i := 0;
  r.s := '';
  SetLength(b,14);
  b[0] := 255;
  b[1] := 0;
  b[2] := 0;
  b[3] := 0;
  b[4] := Ord('A');
  b[5] := Ord('B');
  ByteArrayToMyRecord(b,r,SizeOf(r))
end;