Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.

54 роки тому
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.