2 Variablen selber länge unterschiedlichen Typs auf selber Speicheradresse

[Stefan1286b]

Hallo ich versuche 2 Variablen selber länge unterschiedlichen Typs auf der selben Speicheradresse zu deklarieren.
Ich weiß das es geht. Habe es vor ca. nen halben Jahr in einem Beispiel gesehen. Aber selbst nicht benutzt.

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 ($$    LData        $$);

Ich weiß noch, dass es das var einer Methode war.

Das
($$ LData $$)
steht für das was ich nicht genau weiß.
Im Grundegenommen ist @Ldata = @LBuffer

Vielen Dank im Voraus.

[Der schöne Günther]

Du meinst absolute :
https://docwiki.embarcadero.com/RADS...olute_Adressen

[Stefan1286b]

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;

[Uwe Raabe]

Zitat von Stefan1286b:

Jetzt stellt sich nur noch die Frage ob es möglich ist ein Feld in einer Klasse so zu deklarieren.

Mir stellt sich eher die Frage, warum du das überhaupt brauchst.

[Der schöne Günther]

Er will i1 und i2 mal mit, mal ohne Vorzeichen interpretieren.

Ich glaube "Variant Records" (in C "Unions" genannt) sind das, was du eigentlich willst und wohl die bessere Wahl wären.
Allerdings habe ich auf die Schnelle keine gute Doku dafür gefunden, die offizielle Doku im DocWiki finde ich wenig verständlich.

Vielleicht hat ja jemand was besseres.

[Stefan1286b]

Der Typ Ist nur ein Beispiel in Wirklichkeit ist es ein TArrayOfWordRead = array [0 .. 53] of WORD Und der packed record hat ebenso viele sprich 54 Felder. Die Teilweise WORD und Teilweise Smallint sind. Die dann auch einen sinnvolleren Namen haben. Eine auf Indy-Basierende Klasse liest Modbus Register aus. Jedes Register ist ein WORD. Und ist muss dann über mehrere Methoden auf diese Informationen zugreifen. Zusätzlich gibt es das auch noch zum Schreiben.

[Der schöne Günther]

Oh, ist das zufällig das hier?
https://github.com/coassoftwaresystems/delphi-modbus

Kann ich nur empfehlen.

Ich hatte mit Vorzeichen-Werten bei Modbus relativ selten zu tun, und wenn, dann bin ich tatsächlich immer hingegangen und habe es hart auf SmallInt gecastet:

Delphi-Quellcode:

type
   TRegisterValue = Word;
   TRegisterIndex = Word;
const
   registerIndex: TRegisterIndex = 4711;
var
   myRegisterValue: TRegisterValue;
   myActualValue: SmallInt;
begin
   myRegisterValue := myConnection.readRegister(registerIndex);
   myActualValue := SmallInt(myRegisterValue);
   (...)
end;

Aber kann ja jeder machen wie er mag 😊

[Uwe Raabe]

Delphi-Quellcode:

type
  TBDataRead = packed record
    w1: WORD;
    w2: WORD;
    i1: SMALLINT;
    i2: SMALLINT;
  end;

  TArrayOfWordRead = array [0 .. 3] of WORD;

  TUnion = record
  case Integer of
    0: (BData: TBDataRead);
    1: (WArray: TArrayOfWordRead);
  end;


  TBDBThreadBusInterface = class
  private
    LUnion: TUnion;
  end;

Zugriff über LUnion.BData bzw. LUnion.WArray .

[Der schöne Günther]

Dieses "case Integer of ..." ist von der Syntax irgendwie eines der ... merkwürdigsten Sachen in Pascal, finde ich.

[Stefan1286b]

Ich lese aber nicht jedes Register einzeln, sondern alle zusammen.

aktuell so gelöst:

Delphi-Quellcode:

function TBDBThreadBusInterface.ReadBuffer: PArrayOfWordRead;
begin
  Result := PArrayOfWordRead(@FDataRead);
end;

FMB.ReadHoldingRegisters(0, length(ReadBuffer^), ReadBuffer^)