您最多选择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.