Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.120 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#2

AW: SafeArray of record

  Alt 14. Jan 2019, 08:33
Der Typ TGUID aus der System.pas ist schon ein record und kein String.
Man definiert zwar GUID-Konstanten in der Art von Strings, es wird aber zur Kompilierzeit umgewandelt.

Delphi-Quellcode:
var
  vt: TVarType;
  cDims: Integer;
  rgsabound: PSafeArrayBound;
  pvExtra: pointer;
  GuidOfInterface: TGUID;
  ArrayResult: PSafeArray;
begin
  GuidOfInterface := TGUID.NewGuid;
  pvExtra := @GuidOfInterface;
  ArrayResult := SafeArrayCreateEx(vt, cDims, rgsabound, pvExtra);
end;
  Mit Zitat antworten Zitat