4 wiersze
168 B

  1. begin
  2. insert(inttostr((GetX mod 4) + (GetY mod 4)*4),GetURLBase,9);
  3. ResultURL:=GetURLBase+'x='+inttostr(GetX)+'&y='+inttostr(GetY)+'&zoom='+inttostr(GetZ-1);
  4. end.