Ja, genau das ist es.
Delphi-Quellcode:
TBDataRead = packed record
w1: WORD;
w2: WORD;
i1: SMALLINT;
i2: SMALLINT;
end;
TArrayOfWordRead = array [0 .. 3] of WORD;
var
LData : TBDataRead;
LBuffer : TArrayOfWordRead absolute LData;
Jetzt stellt sich nur noch die Frage ob es möglich ist ein Feld in einer Klasse so zu deklarieren. Erster versuch ergab eine Fehlermeldung.
[dcc64 Fehler] uThreadBusInterface.pas(81): E2029 ';' erwartet, aber Bezeichner 'absolute' gefunden
Delphi-Quellcode:
TBDataRead = packed record
w1: WORD;
w2: WORD;
i1: SMALLINT;
i2: SMALLINT;
end;
TArrayOfWordRead = array [0 .. 3] of WORD;
TBDBThreadBusInterface = class(TBDBThread)
private
LData : TBDataRead;
LBuffer : TArrayOfWordRead absolute LData;
end;