Länge eines "Variant array of variant" (?) bestimmen [OLE]

**freejay**

Hallo zusammen,

ich habe das Problem, dass ich nicht die leiseste Ahnung habe, wie ich die Anzahl der von LinkSources* zurückgegebenen Einträge in der Variante vLinks ermitteln soll:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TfMain.UpdateLinks(FileName: TFileName);

var

  vExcel: Variant;

  vWorkbook: Variant;

  vWorksheet: Variant;

  vLinks: Variant;

  i: Integer;

begin

  vExcel := CreateOleObject('excel.application');

  vWorkbook := vExcel.WorkBooks.Open(FileName,0);

  vLinks := vWorkbook.LinkSources(1);

  for i := 1 to High(vLinks) do

    ShowMessage(vLinks[i]);

  vWorkbook.Close(SaveChanges:=false);

  vExcel.Quit;

  vExcel := UnAssigned;

end;

In VBA macht man das mit UBound(vLinks), aber UBound gibt's ja in Delphi nicht - oder?

High(vLinks) geht definitiv nicht in Delphi,
vLinks.Count auch nicht.
ich habe auch versucht, das Ganze zu casten:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TfMain.UpdateLinks(FileName: TFileName);

type

  TMyArrayOfVariant = array of variant;

var

...

  myLinks: TMyArrayOfVariant;

begin

...

 myLinks := TMyArrayOfVariant(vLinks);

...

end;

funktioniert auch nicht...

Hat irgendjemand eine Idee?

Danke schon jetzt!

Freejay

*LinkSources liefert die in einem Excel-Sheet verknüpften Dateien zurück.

Länge eines "Variant array of variant" (?) bestimmen [OLE]

Länge eines "Variant array of variant" (?) bestimm

Forumregeln