25'ten fazla konu seçemezsiniz Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.

GetUrlScript.txt 225 B

4 yıl önce
1234567
  1. var
  2. shift:integer;
  3. begin
  4. if getz < 4 then shift:=0 else shift:=round(intpower(2,getz-3))+1;
  5. ResultURL:=GetURLBase+'/'+inttostr(GetZ-2)+'/'+inttostr(GetX)+'/'+inttostr(round(intpower(2,GetZ)div 2) - GetY -shift);
  6. end.