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.

zusammenfalten · markieren

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

Nimm varoleStr!

Edit: Und meine OH sagt auch folgendes:

Zitat:

Der Elementtyp darf nicht varString oder ein benutzerdefinierter Variantentyp sein. Verwenden Sie für ein variantes Stringarray den Typcode varOleStr.

Zitat von sirius:

Edit: Und meine OH sagt auch folgendes:

Zitat:

Der Elementtyp darf nicht varString oder ein benutzerdefinierter Variantentyp sein. Verwenden Sie für ein variantes Stringarray den Typcode varOleStr.

Stimmt, nach dreimaligem Hinsehen hab' ich es auch gefunden. Danach erstmal die Schriftgröße verkleinert
Hab' ich es richtig verstanden, dass varString nur für die Abfrage, was im Variant enthalten ist, gilt?

Grüße, Messie

[Edit]
Muss ich eigentlich den Variant-Speicher nach der Benutzung aufräumen oder wird das wie bei dynamsichen array gehandhabt?
[/Edit]

Variants werden von Delphi automatisch freigegeben