2 Variablen selber länge unterschiedlichen Typs auf selber Speicheradresse

[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^)

[Uwe Raabe]

Zitat von Der schöne Günther:

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

Gibt es aber schon seit Anbeginn aller Pascal-Zeiten!

Häufig gibt es zu diesem Typ auch eine Variable, also ein Feld in dem Record (das tag field), um festzulegen, welcher Variantentyp gerade in dem Record steht. Aber man kann das eben auch weglassen.

[Redeemer]

Zitat von Uwe Raabe:

Zitat von Der schöne Günther:

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

Gibt es aber schon seit Anbeginn aller Pascal-Zeiten!

Ich glaub das komische daran ist dieses "Integer", was halt überhaupt nichts aussagt und auch nicht gespeichert wird, oder?

Zitat von Uwe Raabe:

Häufig gibt es zu diesem Typ auch eine Variable, also ein Feld in dem Record (das tag field), um festzulegen, welcher Variantentyp gerade in dem Record steht. Aber man kann das eben auch weglassen.

Kommt dem von Delphi aus eine besondere Bedeutung zu oder ist das einfach nur so etwas?

[freimatz]

Ja das ist einfach so etwas. Es ist aber Subotimal hier ein Integer zu verwenden. Gut ist es (wenn überhaupt) die Verwendung eines Aufzählungstyps.

[Uwe Raabe]

Zitat von freimatz:

Gut ist es (wenn überhaupt) die Verwendung eines Aufzählungstyps.

Delphi-Quellcode:

type
  THackersCaseSelector = (ThisIsTheRealStructure, ThisIsWhatTheFuckingApiRequires);

[freimatz]

[Uwe Raabe]

Zitat von Redeemer:

Ich glaub das komische daran ist dieses "Integer", was halt überhaupt nichts aussagt und auch nicht gespeichert wird, oder?

Es gibt halt den Typ der folgenden case-label Konstanten an.

Zitat von Redeemer:

Kommt dem von Delphi aus eine besondere Bedeutung zu oder ist das einfach nur so etwas?

Die Frage habe ich noch nicht verstanden (zumindest nicht so dass ich sie beantworten könnte).

[Redeemer]

Zitat von Uwe Raabe:

Zitat von Redeemer:

Kommt dem von Delphi aus eine besondere Bedeutung zu oder ist das einfach nur so etwas?

Die Frage habe ich noch nicht verstanden (zumindest nicht so dass ich sie beantworten könnte).

Gemeint war: Hat das Tag für Delphi eine besondere Bedeutung, dass es zum Beispiel Compilermeldungen bezüglich der Typ-/Zuweisungssicherheit auslöst?