6 linhas
301 B

  1. var
  2. maptile: string;
  3. begin
  4. maptile := RegExprReplaceMatchSubStr(GetURLBase, 'maptile\.lbs', inttostr( Random(3)+1 )+'.maptile'+'.lbs' );
  5. ResultURL:=maptile+inttostr(GetZ-1)+'/'+inttostr(GetX)+'/'+inttostr(GetY)+'/256/png8?lg=RUS&token=fee2f2a877fd4a429f17207a57658582&appId=nokiaMaps';
  6. end.