6 rader
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.