6 lines
189 B

  1. begin
  2. ResultURL := '';
  3. if (GetZ >= 5) and (GetZ <= 16) then begin
  4. ResultURL := GetURLBase + IntToStr(GetZ-1) + '/' + IntToStr(GetY) + '/' + IntToStr(GetX) + '.png';
  5. end;
  6. end.