variant array of boolean

[Rainer Wolff]

Über die Zuweisung eines arrays of boolean an eine Variant bin ich gestolpert. VarArrayCreate funktioniert, array of integer zuweisen ebenfalls, aber die letzte Zeile crasht.

Code:

procedure TForm15.FormCreate(Sender: TObject);
var
  ab: array of boolean;
  aw: array of integer;
  va: variant;
begin
  Va := VarArrayCreate([0,9], varBoolean);

  SetLength(aw,2);
  va:=aw;

  SetLength(ab,2);
  va:=ab;
end;

[Uwe Raabe]

Delphi-Quellcode:

varBoolean

arbeitet intern mit

Delphi-Quellcode:

WordBool

, daher funktioniert Boolean nicht.

[himitsu]

Und selbst wenn die Größe gepasst hätte, wäre es ebenfalls BOOL aka ByteBool gewesen, anstatt Delphi-Boolean. (auch wenn da das Problem kaum eine Auswirkung gehabt hätte)


Außerdem liefert VarArrayCreate einen Variant, in dem ein Array aus Variants liegt.
Hat Delphi dafür überhaupt eine automatische Konvertierung? (für Integer- und Byte-Arrays gibt es das zumindestens)
[edit] jupp mit WordBool geht's auch [/edit]

Kannst ja mal in der System.pas nach deinem varBoolean suchen. ("System" schreiben und Strg+Enter)
siehe "Variant type codes" und vorallem ins TVarData