Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Speicherbereich in Bytearray schreiben

  Alt 28. Mai 2007, 22:50
Hi,

wenn du auf den Bereich hinter den Record zugreifen möchtest wäre dies eine Möglichkeit:
Delphi-Quellcode:
type
  TMyRecord = packed record
    Daten1: integer;
    Daten2: byte;
    ...
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyR: TMyRecord;
  pB: PByteArray;
begin
  pB:= Pointer(Cardinal(@MyR)+ SizeOf(TMyRecord));
  caption:= inttostr(pB^[0]);//DEMO
end;
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat