AD Hilfe !!

[Alter Mann]

Hi,

ich hatte nur kurz Zeit mal ein Blick auf das 'Description'-Feld zu werfen.
Es wird als 'Variant-Array of Variant-Array' zurückgegeben.

Probiere mal die nachstehende Funktion(ist aus einem anderen Projekt, deshalb ungetestet)

Delphi-Quellcode:

  function GetArrayContent(FVarObj: Variant): string;
  var
    idx: Integer;
    RS : String;
  begin
    RS := '[';
    if (VarIsNull(FVarObj)) or (VarArrayHighBound(FVarObj, 1) <= 0) then
      RS := RS + ']'
    else
    begin
      for idx := 1 to VarArrayHighBound(FVarObj, 1) do
        RS := RS + VarToStr(FVarObj[idx]) + ', ';
    end;
    if Length(RS) > 2 then RS := Copy(RS, 1, Length(RS) - 2) + ']';
    Result := RS;
  end;

Würde empfehlen beim ersten if ein breakpoint zusetzen und dann durch zusteppen.

Gruß

[Alter Mann]

Hallo,

so wichtig ist es wohl dann doch nicht?

Falls doch, dann aus diesem:

Delphi-Quellcode:

for idx := 1 to VarArrayHighBound(FVarObj, 1) do

dieses machen:

Delphi-Quellcode:

for idx := 0 to VarArrayHighBound(FVarObj, 1) do

Gruß