Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.

GetUrlScript.txt 296 B

il y a 4 ans
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.