|
- var
- sx,sy,sz:string;
-
- begin
- sx:=inttostr(Getx);
- sy:=inttostr(round(intpower(2,GetZ-1))-Gety);
- sz:=inttostr(Getz-1);
- while length(sx)<3 do sx:='0'+sx;
- while length(sy)<3 do sy:='0'+sy;
- while length(sz)<2 do sz:='0'+sz;
-
- ResultURL:=GetUrlBase+sz+'/00/000/000/'+sx+'/000/000/'+sy+'.png';
- end.
|