54 роки тому
1234
  1. begin
  2. if ((GetZ <= 19) and (GetZ >= 6)) then
  3. ResultURL:=GetURLBase+'&x='+inttostr(GetX-(round(intpower(2, Getz-1))/2))+'&y='+inttostr((round(intpower(2, Getz-1))/2)-1-GetY)+'&z='+inttostr(19-GetZ);
  4. end.