Größe bei dyn. Arrays automatisch?

[Medium]

Gürks, OLE-Geschlumpfe. Okay, da habe ich etwas zu oberflächlich gelesen. Was aber von meiner Aussage oben bleibt ist, dass sie zutrifft, wenn man ohne "magische" Resourcen hantiert.

[baumina]

Zitat von Medium:

Gürks, OLE-Geschlumpfe. Okay, da habe ich etwas zu oberflächlich gelesen. Was aber von meiner Aussage oben bleibt ist, dass sie zutrifft, wenn man ohne "magische" Resourcen hantiert.

Ein Variant ist magisch?

[Uwe Raabe]

Zitat von Medium:

Gürks, OLE-Geschlumpfe. Okay, da habe ich etwas zu oberflächlich gelesen. Was aber von meiner Aussage oben bleibt ist, dass sie zutrifft, wenn man ohne "magische" Resourcen hantiert.

Das hat gar nichts mit OLE zu tun, sondern damit wie Delphi mit Variants umgeht. Der folgende Code ist also durchaus korrekt und ungefährlich:

Delphi-Quellcode:

var
  A: array of Integer;
  V: Variant;
  I: Integer;
begin
  V := VarArrayCreate([0,9], varInteger);
  for I := 0 to 9 do
    V[I] := I;
  A := V;
  for I := 0 to 9 do
    Assert(V[I] = I);

  VarClear(V);
  V := A;
  for I := 0 to 9 do
    Assert(V[I] = I);

end;

[Medium]

Aus pascalscher Sicht sind Variants durchaus "magisch", da mit vergleichsweise viel Compiler Magic ausgestattet, und (u.a.) die Typstrenge aufweichend. Und gerade variante Arrays (für die es ohne OLE imho anfangs wenig Bedarf in Delphi gegeben hätte) bringen einfach viele Automatismen mit, die die dynamischen Arrays, über die man sich normalerweise in Delphi unterhält, einfach nicht haben. Ich hoffe man versteht mich jetzt richtiger.

[jensen82]

Hey!

Also ist das in Ordnung... ? Aber warum in aller Welt muss ich die Länge des Arrays nicht angeben?
Wäre es generisch, z.B. List oder vector aus C++ wäre ja mit .Add(meinVar) alles fein. Kann mir das jemand erklären?

Hier nochmal ein wenig Code:

Delphi-Quellcode:

function GetAllDisks(sHostName: String; sUserName: String;
  sPassword: String): TDiskInfoList;
const
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator: OLEVariant;
  FWMIService: OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject: OLEVariant;
  oEnum: IEnumvariant;
  iValue: LongWord;
  disk: TDiskInfo;
  diskList: TDiskInfoList;
begin
  try
    CoInitialize(nil);
    try
      FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
      FWMIService := FSWbemLocator.ConnectServer(sHostName, 'root\CIMV2',
        sUserName, sPassword);
      FWbemObjectSet := FWMIService.ExecQuery('SELECT * FROM Win32_DiskDrive',
        'WQL', wbemFlagForwardOnly);
      oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumvariant;
      while oEnum.Next(1, FWbemObject, iValue) = 0 do
      begin
        //if not VarIsNull(FWbemObject.Availability) then
          disk.Availability := FWbemObject.Availability;

        if not VarIsNull(FWbemObject.BytesPerSector) then
          disk.BytesPerSector := FWbemObject.BytesPerSector;

        if not VarIsNull(FWbemObject.Capabilities) then
          disk.Capabilities := FWbemObject.Capabilities;

Letztendlich gibt die Funktion eine List zurück.

Ich danke euch vielmals.

[Uwe Raabe]

Zitat von jensen82:

Aber warum in aller Welt muss ich die Länge des Arrays nicht angeben?

Weil die Länge im Variant bereits enthalten ist. Es gibt eine Funktion DynArrayFromVariant, die aus einem Variant ein dynamisches Array macht. Der Delphi-Compiler ist so clever, diese Funktion bei der Zuweisung aufzurufen.

Zitat von jensen82:

Wäre es generisch, z.B. List oder vector aus C++ wäre ja mit .Add(meinVar) alles fein. Kann mir das jemand erklären?

Dazu müsste ich erst verstehen, was du hier meinst.

Zitat von jensen82:

Hier nochmal ein wenig Code:

Die Deklaration von TDiskInfo und TDiskInfoList wäre sicher hilfeich. Abgesehen davon ist die Methode irgendwie unvollständig.

[jensen82]

Zitat:

Weil die Länge im Variant bereits enthalten ist. Es gibt eine Funktion DynArrayFromVariant, die aus einem Variant ein dynamisches Array macht. Der Delphi-Compiler ist so clever, diese Funktion bei der Zuweisung aufzurufen.

Das ist mal eine aussagekräftige Antwort die vollkommen ausreicht. Fakten!

Ich danke euch für die tolle Unterstützung.

Danke!!!