請看CODE......

Question

有請------CODE午餐。
type
  TDateOrder = (doMDY, doDMY, doYMD); function GetDateOrder(const DateFormat: string): TDateOrder;
 var
   I: Integer;
 begin
   Result := doMDY;
   I := 1;
   while I <= Length(DateFormat) do
   begin
     case Chr(Ord(DateFormat[I]) and $DF) of
       'Y': Result := doYMD;
       'M': Result := doMDY;
       'D': Result := doDMY;
     else
       Inc(I);
       Continue;
     end;
     Exit;
   end;
 end;1. $DF是啥意思?
2. Inc(I),此函數的用法不懂?
3. Result知道意思﹐但在用法上有點模湖?

Answer 1

var  IntVar: Integer;
  LongintVar: Longint;
begin
  Inc(IntVar); { IntVar := IntVar + 1 }
  Inc(LongintVar, 5); { LongintVar := LongintVar + 5 }end;

Answer 2

1.表示十六进制
2 Inc(I)  相当  I := I + 1;
3.Result 就是函数的返回结果真悲哀你这样怎么编程，  去找本入门书看看吧， 推荐  从入门到精通（是老外写的哟，不要把那本中国人写的那本拿来）