Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.

4 лет назад
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.