Case Abfrage in Recorddeklaration ???

[mr_emre_d]

Code:

  TBefehl=record
    Case Typ:TBefehlsTyp of
      BT_STAND:();
      BT_MOVE:(X,Y:Word);
  end;

Wie ist das zu verstehen ? Ich möchte nur wissen, was das Case bei einer Typendeklaration ( record ) zu verloren hat !

Gegoogelt hab ich auch schon nach "delphi case in record" aber bin nicht fündig geworden !

Danke im vorraus :D

MfG

[grenzgaenger]

variante records

[taaktaak]

z.B. hier steht etwas zur Fragestellung

[mr_emre_d]

ich verstehe es einfach nicht !

Code:

_TRIGGER_TYPE_UNION = packed record
    case Integer of
      0: (Daily: DAILY);
      1: (Weekly: WEEKLY);
      2: (MonthlyDate: MONTHLYDATE);
      3: (MonthlyDOW: MONTHLYDOW);
    end;  // das hier fehlte 
  end;
...
  blubb := rec.Daily  // Hat hier blubb anschließend den Wert 0 ??? bzw Weekly den Wert 1 usw. ?

[Neutral General]

Hi,

Delphi-Quellcode:

TColorRec = record
  case Integer of
    1: (r,g,b: Byte);
    2: (ColorArray: Array[0..2] of Byte);
    3: (Color: TColor);
  end;

Das ist denke ich mal ein gutes Beispiel.

(r,g,b,a), (ColorArray) und (Color) belegen hier den gleichen Speicher. Die Art wie auf diesen Speicher zugegriffen dieser Speicher interpretiert wird unterscheidet sich nur.

Delphi-Quellcode:

var 
  Color: TColorRec;

begin
  Color.r := 255;
  Color.g := 0;
  Color.b := 255;

  Panel1.Color := RGB(Color.r,Color.g,Color.b);
  Panel2.Color := RGB(Col.ColorArray[0],Col.ColorArray[1],Col.ColorArray[2]);
  Panel3.Color := Color.Color;
end;

Damit kann man sich das verdeutlichen ;)

Edit: Zum 543 mal geändert -.-^^

[Christian Seehase]

Moin Michael,

Zitat:

Zitat von Neutral General

Die Art wie auf diesen Speicher zugegriffen wird unterscheidet sich nur.

Ich würde sagen:
Die Unterscheidung besteht darin, wie der Speicherinhalt zu interpretieren ist.

[Neutral General]

Hi,

Ok du hast Recht. Ist ein bisschen schlecht ausgedrückt. Habe aber das richtige gemeint :mrgreen:

*Obigen beitrag editiere*

[mr_emre_d]

OK, wie man darauf zugreift habe ich schon verstanden ( gibts eh nichts zu verstehen, ist logisch )

aber erkär mir mal das hier

Code:

TColorRec = record
  case Integer of
    1: ...  // was macht das Case Integer of und 1, 2, 3 ...

EDIT:

Zitat:

(r,g,b,a), (ColorArray) und (Color) belegen hier den gleichen Speicher

Den gleichen Speicher ? heißt das dann, dass r denselben wert hat wie Coloarray[0] und g = Colorarray[1] usw ?
Oder meinst du vlt., dass sie die gleiche Größe haben ? Wenn nicht, dann ist das ja ziemlich interessant :D

[Neutral General]

Compilier mal meinen Code und probiers aus.

[mr_emre_d]

Code:

  ColRec.r := 255;
  ColRec.g := 0;
  ColRec.b := 0;
  Form1.Color := ColRec.Color;

das ist mal geil :D und könntest du mir schnell erklären was das case integer of macht ?