Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.

13 linhas
301 B

  1. var
  2. sx,sy,sz:string;
  3. begin
  4. sx:=inttostr(Getx);
  5. sy:=inttostr(round(intpower(2,GetZ-1))-Gety);
  6. sz:=inttostr(Getz-1);
  7. while length(sx)<3 do sx:='0'+sx;
  8. while length(sy)<3 do sy:='0'+sy;
  9. while length(sz)<2 do sz:='0'+sz;
  10. ResultURL:=GetUrlBase+sz+'/00/000/000/'+sx+'/000/000/'+sy+'.png';
  11. end.