sasgis
/
maps
2
0
Fork 4
Code Issues 0 Pull Requests 0 Releases 0 Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
85 Commits
1 Branch
15 MiB
 
Tree: 1eff1fe12d
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '1eff1fe12d'
${ noResults }
maps/kharkov.ua.zmp/GetUrlScript.txt

14 lines
296 B
Raw Blame History 

  1. function addzero(i:integer):string;

  2. var rs:string;

  3. begin

  4. rs:=inttohex(i, 8);

  5. while length(rs)<8 do rs:='0'+rs;

  6. result:=rs;

  7. end;

  8. var

  9. zz:string;

  10. begin

  11.  zz:=inttostr(getz-4);

  12.  while Length(zz)<2 do zz:='0'+zz;

  13.  ResultURL:=GetUrlBase+zz+'/R'+addzero(GetY)+'/C'+addzero(GetX)+'.png';

  14. end.