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.

GetUrlScript.txt 296 B

4 years ago
1234567891011121314
  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.