Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.

GetUrlScript.txt 296 B

před 54 roky
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.