Hallo

habe hier ein Deklarationsproblem. Wie bekommen diese C-Union nach Delphi?

markieren

Code:

typedef union {
  [case(VSS_OBJECT_SNAPSHOT)]
    VSS_SNAPSHOT_PROP Snap;
  [case(VSS_OBJECT_PROVIDER)]
    VSS_PROVIDER_PROP Prov;
} VSS_OBJECT_UNION;

Diese Umsetzung erzeugt nur Fehlermeldungen:

markieren

Delphi-Quellcode:

  VSS_OBJECT_UNION = packed record
    case Integer of
      3 : (Snap : VSS_OBJECT_SNAPSHOT); //VSS_OBJECT_SNAPSHOT
      4 : (Prov : VSS_PROVIDER_PROP); //VSS_OBJECT_PROVIDER
    end;
  end;

Warum?

Vielen Dank für Tipps unf Hinweise

Alter Mann

Muss es nicht so heißen:

markieren

Delphi-Quellcode:

VSS_OBJECT_UNION = packed record
    case Integer of
      3 : (Snap : VSS_SNAPSHOT_PROP); // Hier
      4 : (Prov : VSS_PROVIDER_PROP);
  end;
// end;

[EDIT]Unter Berücksuchtigung von guinnes' Beitrag angepasst.[/EDIT]

Das 2. End ist zuviel ( Case in Records benötigen kein End )

markieren

Delphi-Quellcode:

  VSS_OBJECT_SNAPSHOT = Integer;
  VSS_PROVIDER_PROP = Pointer;
  VSS_OBJECT_UNION = packed record
    case Integer of
      3 : (Snap : VSS_OBJECT_SNAPSHOT); //VSS_OBJECT_SNAPSHOT
      4 : (Prov : VSS_PROVIDER_PROP); //VSS_OBJECT_PROVIDER
    end;

Hi,

schnelle Antwort, aber beide nicht die Lösung.

Die Meldungen lauten:

Zitat:

VSS_OBJECT_UNION = packed record
case Integer of
3 : (Snap : VSS_OBJECT_SNAPSHOT); E2029: '..' erwarted, aber ')' gefunden
4 : (Prov : VSS_PROVIDER_PROP); E2029: '..' erwarted, aber ')' gefunden
end;

Zwischen beiden moniert er die '4' und schreibt E2029:')'erwartet, aber Zahl gefunden.

Viele Grüße

Dann muss dein Fehler vor dem zitieren Text liegen. Schreib mal direkt davor "type" und versuche es noch mal.

markieren

Delphi-Quellcode:

type
VSS_OBJECT_SNAPSHOT = Integer;
  VSS_PROVIDER_PROP = Pointer;
  VSS_OBJECT_UNION = packed record
    case Integer of
      3 : (Snap : VSS_OBJECT_SNAPSHOT); //VSS_OBJECT_SNAPSHOT
      4 : (Prov : VSS_PROVIDER_PROP); //VSS_OBJECT_PROVIDER
    end;

lässt sich jedenfalls problemlos übersetzen.

Ich denke nach wie vor, dass es so heißen müsse:

zusammenfalten · markieren

Delphi-Quellcode:

const
  VSS_OBJECT_SNAPSHOT = 3;
  VSS_OBJECT_PROVIDER = 4;
type
  VSS_SNAPSHOT_PROP = XYZ;
  VSS_PROVIDER_PROP = UVW;
  VSS_OBJECT_UNION = packed record
    case Integer of
      VSS_OBJECT_SNAPSHOT:
        (Snap : VSS_SNAPSHOT_PROP); // <- VSS_SNAPSHOT_PROP
      VSS_OBJECT_PROVIDER:
        (Prov : VSS_PROVIDER_PROP);
    end;

Hallo,

also folgendes geht

markieren

Delphi-Quellcode:

type
  TRec = packed record
    case Integer of
      3: (i: Integer);
      4: (d: Double);
  end;

markieren

Delphi-Quellcode:

type
  TRec = record
    case Integer of
      0:
        (i: Integer; j: Integer);
      1: (d: Double);
  end;

Wie ist denn
VSS_SNAPSHOT_PROP und VSS_PROVIDER_PROP definiert ??



Heiko