请高手帮我解释一下/demos/db/mastapp下的例子中getdateorder函数好吗？(50分)

C

chen_ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #1

调用该函数的参数shortdateformat是什么？tdateorder是？（我在
帮助中找不到）doMDY是？语句case chr(ord(dateformatand$df) of
...
...
...
是什么意思？请具体解释该函数。

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #2

TDateOrder = (doMDY, doDMY, doYMD);//定义的三种日期格式,
//即mdy,dmy,ymd
//y-year,m-month,d-day
// 返回日期的格式函数
function GetDateOrder(const DateFormat: string): TDateOrder;
var
I: Integer;
begin
Result := doMDY; //缺省为mdy 即月日年
I := 1;
while I <= Length(DateFormat) do
begin
case Chr(Ord(DateFormat) and $DF) of //转换为大写
'Y': Result := doYMD; //第一个字母为Y
'M': Result := doMDY; //第一个字母为M
'D': Result := doDMY; //第一个字母为D
else
Inc(I);
Continue;
end;
Exit;
end;
Result := doMDY;
end;
还有什么不懂的？
快点， 我要~~~~

 

C

chen_ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #3

$DF是什么来的？

 

C

chen_ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #4

为什么要用while循环呢？

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #5

大写的A的ord是65, 即$41, 01000001
小 a 97, 即$61, 01100001
其它字母是顺序排列的。
你想想$61如何转换为$41,
当然是用11011111（即$df）去and一把了;-)

 

C

chen_ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #6

while循环我知道了，刚刚误解了，请继续。

 

C

chen_ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #7

还有参数DateFormat，该例中调用它时用getdateorder(shortdateformat),何解？

 

A

amo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #8

注意看例子中的说明：
ShortDateFormat - The format string used to convert a date value to a
short string suitable for editing. For a complete description of date and
time format strings, refer to the documentation for the FormatDate
function. The short date format should only use the date separator
character and the m, mm, d, dd, yy, and yyyy format specifiers. The
initial value is fetched from LOCALE_SSHORTDATE.

 

C

chen_ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #9

谢谢amo,对于该例我还有些其他疑问，我会继续提出问题，请关注。

 

C

chen_ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-20

• #10

接受答案了.