MapForums

oResult : FindResults;
FMap : _map;
begin
FMap := Application1.ActiveMap as _Map;
Loc := FMap.GetLocation(X, Y,1) as Location;
Loc.GoTo_;
oResult := FMap.ObjectsFromPoint(FMap.LocationToX(Loc),FMap.L ocationToY(Loc)) as FindResults;

if i use this code to search with i get 5 results. but i cannot read any of the results. Every thime i try i get an access violation. I have tried several different code samples from this site and i allways get an access violation any ideas?

Hello,

Try the following:

procedure TForm1.Button1Click(Sender: TObject);
var
vFindResult : FindResults;
vStreetAddress : StreetAddress;
vResult : string;
i : integer;
iOle : OleVariant
begin
for i := 1 to vFindResult.Count do
begin
iOle := i;

// To access name result:
vResult := (vFindResult[iOle] as Location).Name;

// Or to access streetaddres result:
vStreetAddress := (vFindResult[iOle] as Location).StreetAddress;
if Assigned(vStreetAddress) then
begin
...
end;
end;
end;

Greetings, Jack.

Thanks that works great

That works fine if the result object is a Location, but what if it happens to be a PushPin ?
Then casting it to a Location would give strange results, no ?
So how can you tell want the result object type is ?

Rene