選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。

13 行
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.