6 řádky
195 B

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