请帮忙，解释一下以下代码

Question

请帮忙，解释一下以下代码
cur:=(ord(s[i]) shr j) or ((ord(s[i＋1]) shl (7－j)) and ＄ff) 
其中cur是integer,s是string
请问这段代码大概的意思，ord()和shr是什么意思。

Answer 1

s[i]为字符串s的第i个字符。
ord是取s[i]的ascii码
shl 是左移几位,shr是右移

Answer 2

请问ord取得的ascii是十进制还是二进制呢

Answer 3

ord()取得那个Value值所在的位置，例如，
type
  TMode = (mdIdle, mdBusy, mdWait, mdNone);
             ^        ^       ^       ^
             0        1       2       3这时，我们可以得到
  Ord (mdIdle) 等于0
  Ord (mdBusy) 等于1
  ……或者
var
  str: string;
begin
  str := 'asdkjfalsnd';
end;
//////////////////////
Ord(str[0]) = 0;
Ord(str[1]) = 1;
……………………
这个你可以自己做个试验试试看：）Example for ORDuses Dialogs;
type   Colors = (RED,BLUE,GREEN);var  S: string;
 begin
   S := 'BLUE has an ordinal value of ' + IntToStr(Ord(BLUE)) + #13#10;
   S := S + 'The ASCII code for "c" is ' + IntToStr(Ord('c')) +  ' decimal';
   MessageDlg(S, mtInformation, [mbOk], 0, mbOK);
 end;
_________________________________________
shl、shr都是位操作符，就好像C/C++语言里面的
<<、>>一样。