You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

13 lines
301 B

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