Delphi-Equivalent zur C-union

[oXmoX]

Hmmm ...ich bekomme es immer noch nicht so ganz hin.

Das hier ...

Code:

  CvMat = record
    type_: Integer;
    step:  Integer;

    // for internal use only
    refcount: PInteger;

    case Integer of
      0: (ptr: PUCHAR);
      1: (s:   PShortInt);
      2: (i:   Integer);
      3: (fl:  Single);
      4: (db:  Double);
    end;

    rows: Integer;
    cols: Integer;
  end;

funktioniert jedenfalls nicht so direkt.

...und das hier:

Code:

cvMatInner = record
    case Integer of
      0: (ptr: PUCHAR);
      1: (s:   PShortInt);
      2: (i:   Integer);
      3: (fl:  Single);
      4: (db:  Double);
  end;

  CvMat = record
    type_: Integer;
    step:  Integer;

    // for internal use only
    refcount: PInteger;

    inner:    cvMatInner;

    rows: Integer;
    cols: Integer;
  end;

kompiliert zwar. Aber ich bin mir nicht so ganz sicher ob ich alles richtig gemcht habe.