VarArrayCreate mit Typ String wird nicht erstellt

[messie]

Moin,

ich hab' gerade das Problem, dass VarArrayCreate sich standhaft weigert, ein variantes Array zu erstellen. Zuerst habe ich gedacht, es hätte mit der Unicode-Umstellung zu tun, aber in Delphi 6 passiert dasselbe.

Code von Button1 geht, von Button2 wirft das Programm eine EVariantCreateError.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  v : variant;
begin
  v := VarArrayCreate([0,66],varInteger);
  v[33] := 900;
  ShowMessage(IntToStr(v[33]));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  v : variant;
begin
  v := VarArrayCreate([0,66],varString);
  v[33] := 'Moin';
  ShowMessage(v[33]);
end;

In der OH steht string als zulässiger Typ.



Grüße, Messie