ItemCount bei OleVariant

**bundy**

Einen wunderschönen Guten Morgen DP

Ich probiere schon seit gästern am Abend, verzweifelnd den Linecount eines OleVariants abzufragen.

Es handelt sich glaubich um einen 2 dimensionalen OleVariant.

Ich arbeite mit der Komponente von Map&Guide.
Und mit der Procedure GetRouteList kann mann die Routen Liste abfragen
GetRouteList(level:TOleEnum;out Result:OleVariant);
Die Code dazu lautet wie folgt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.OnRouteCalculated(Sender: TObject; success: WordBool);

var

  nDistance,nDrivingTimeFrom :integer;

  RouteList:OleVariant;

begin

 if success then

    begin

      MGCMapControl1.Map.Routing.GetDistanceAndDuration(nDistance,nDrivingTimeFrom);

      MGCMapControl1.Map.Routing.GetRouteList(erldDetailedList,routeList);

    end

    else

    begin

     ShowMessage ('route calculation failed');

    end;

end;

Bis an diese Stelle funktioniert alles einwandfrei.
Ich habe also jetzt die Routinglist in meiner Variable routeList vom Type OleVariant gespeichert.

Aber wie bekomme ich denn jetzt meine routeList in ein Memo auf meinem Form.
ich hab das mal so gemacht:

markieren

Delphi-Quellcode:

			i:=0;

while RouteList[0,i] <> '' then

  begin

  cxMemo1.lines.add(Routlist[0,i]);

  inc(i);

  end;

Jetzt liest er die Routinglist ein, aber ich bekomme immer einen Fehler am Schluss, das Der sichere Index auserhalb des zulässigen bereiches liegt.
Kann ich diesen Index max wert nicht irgendwie abfragen , um einen genau definierten loop zu erzeugen?
hab schon high(Routlist) probiert, SizeOf , Lenght , usw... hab es aber leider nicht hinbekommen.

Bitte bitte um hilfe.

lg
bundy

ItemCount bei OleVariant

ItemCount bei OleVariant

Forumregeln