Delphifunktion um die Länge eines Array in einem "Array of Variant" zu bestimmen?

[BadenPower]

Zitat von Sir Rufo:

http://www.delphipraxis.net/808-vari...verstehen.html

Schöner Link. Zeigt aber keine Funktion mit welcher man die Länge auslesen kann.

[Sir Rufo]

Zitat von BadenPower:

Zitat von Sir Rufo:

http://www.delphipraxis.net/808-vari...verstehen.html

Schöner Link. Zeigt aber keine Funktion mit welcher man die Länge auslesen kann.

Immer hübsch de Äuglein uffmache

Zitat von jbg:

Nach kurzen Stöbern in der OnlineHilfe:
VarArrayDimCount, VarArrayHighBound, VarArrayLowBound

http://docwiki.embarcadero.com/Libra...rArrayDimCount

[BadenPower]

Zitat von Sir Rufo:

Immer hübsch de Äuglein uffmache

Zitat von jbg:

Nach kurzen Stöbern in der OnlineHilfe:
VarArrayDimCount, VarArrayHighBound, VarArrayLowBound

http://docwiki.embarcadero.com/Libra...rArrayDimCount

Diese Funktionen kenne ich zur Genüge.

VarArrayDimCount:
Gibt die Anzahl der Dimensionen zurück, aber nicht die Arraylänge.
Löst beim Aufruf von Array[0] eine Exception wenn das Array die Länge 0 hat.

VarArrayLowBound:
Gibt nur den niederen Indexwert aus.

VarArrayHightBound:
Gibt nur den höchsten Indexwert aus, oder auch nicht, wenn das Array die Länge 0 hat.

[Sir Rufo]

Tja, da wirst du wohl mal folgendes machen müssen:

Poste den Code der das Problem zeigt
Teile uns die Exception mit (CopyPaste der Meldung)

Dann schauen wir weiter

[BadenPower]

hier einmal ein wenig Testcode:

benötigt
1x Form
1x Button
4x Label

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;


type
  TMyVarArray = Array of Variant;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}



function LocalNewArray(): TMyVarArray;
begin
  //Result := VarArrayCreate([-3,-2],varVariant);
  //Result := VarArrayCreate([0,5],varVariant);
  SetLength(Result,0);


end;

procedure TForm1.Button1Click(Sender: TObject);
var
  lArray1: Array of Variant;
  lArray2: Array of Variant;
begin

  lArray1 := VarArrayCreate([0,5],varVariant);
  //SetLength(lArray1[0],0);
  lArray1[0] := VarArrayCreate([-3,-2],varVariant);
  lArray1[0][-2] := 'Test';

  lArray2 := VarArrayCreate([0,10],varVariant);
  lArray2[0] := VarArrayCreate([0,10],varVariant);
  //lArray2[0] := LocalNewArray();
  //SetLength(lArray2[0],0);

  try
    Label1.Caption := lArray1[0][-2];
    //Label1.Caption := IntToStr(Length(lArray1));
  except
    Label1.Caption := 'Fehler';
  end;

  try
    Label2.Caption := IntToStr(Length(lArray2));
  except
    Label2.Caption := 'Fehler';
  end;

  try
    //Label3.Caption := IntToStr(VarArrayHighBound(lArray1[0],1));
    Label3.Caption := IntToStr(VarArrayDimCount(lArray1[0]));
    //Label3.Caption := IntToStr(Length(lArray1[0]));
    //Label3.Caption := IntToStr(High(lArray1[0]));
  except
    Label3.Caption := 'Fehler';
  end;

  try
    //Label4.Caption := IntToStr(VarArrayLowBound(lArray2,2));
    //Label4.Caption := IntToStr(VarArrayHighBound(lArray2,2));
    //Label4.Caption := IntToStr(VarArrayLowBound(lArray2[0],1));
    //Label4.Caption := IntToStr(VarArrayHighBound(lArray2[0],1));
    //Label4.Caption := IntToStr(VarArrayDimCount(lArray2[0]));
    Label4.Caption := IntToStr(Length(lArray2[0]));
    //Label4.Caption := IntToStr(High(lArray2[0]));
  except
    Label4.Caption := 'Fehler';
  end;



end;

end.

[implementation]

Man könnte den Testcode ja mal so ergänzen, dass er auch die tatsächliche Fehlermeldung ausgibt

[himitsu]

Und dann sollte man langsam mal den Unterschied zwischen Array, Variant und Variant-Array verstehen, dann wird klar, daß
 lArray1 := VarArrayCreate([0,5],varVariant); natürlich nicht funktionieren kann.

Die 1. Ebene ist ein stinknormales Array, also wird da mit SetLength/Length gearbeitet und erst in Ebene 2 kommen die Variants, in welche man Variant-Arrays reintun kann, wo man dann mit VarArrayCreate/VarArrayDimCount arbeiten könnte.

[BadenPower]

Zitat von implementation:

Man könnte den Testcode ja mal so ergänzen, dass er auch die tatsächliche Fehlermeldung ausgibt

Wenn das Programm läuft und Du den Button betätigst, dann müsste er in Zeile 90 >>> Label4.Caption := IntToStr(Length(lArray2[0])); <<< im Debugger die Exception auswerfen.

[himitsu]

Ohh, dann hast du Glück, daß automatisch _VarToDynArray aufgerufen wird, was aus deinem erstellten Variant-Array ein dynamisches Array macht.
DynArrayToVariant DynArrayFromVariant
Hätte jetzt nicht erwartet, daß Delphi das automatisch macht, aber dennoch ist es praktisch falsch, da du dort eben ein dynamisches Array erstellen wolltest, es aber nicht machst.

Und später versuchst du eines der Variant-Arrays als dynmamisches Array anzusprechen, was nicht geht, da du dem Compiler nicht explizit sagst was du willst.
Der Compiler weiß ja nicht was in dem Variant steckt (also beim Compilieren) und springt beim Length aus Gewohnheit auf String, versucht den Variant also in einen String zu casten, was dir Delphi auch eindeutig sagt (siehe Fehlermeldung), um dann vom "String" das Length auszulesen.