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.

6 lines
309 B

  1. begin
  2. if ((GetZ-6) <= 9) and ((GetZ-6) >= 0) then
  3. ResultURL:=GetUrlBase+'0'+IntToStr(GetZ-6)+'/R'+IntToHex(GetY,8)+'/C'+IntToHex(GetX,8)+'.png'
  4. else if ((GetZ-6) >= 10) and ((GetZ-6) <= 12) then
  5. ResultURL:=GetUrlBase+IntToStr(GetZ-6)+'/R'+IntToHex(GetY,8)+'/C'+IntToHex(GetX,8)+'.png';
  6. end.