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:
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:
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