D
delpher2003
Unregistered / Unconfirmed
GUEST, unregistred user!
1 TMessage = packed record
2 Msg: Cardinal;
3 case Integer of
4 0: (
5 WParam: Longint;
6 LParam: Longint;
7 Result: Longint);
8 1: (
9 WParamLo: Word;
10 WParamHi: Word;
11 LParamLo: Word;
12 LParamHi: Word;
13 ResultLo: Word;
14 ResultHi: Word);
15 end;
以上是Messages.pas单元中对TMessage的定义,不明之处有以下几点:
a、第一行的 packed 是什么意思?
b、第三行的case语句中的 Integer 从哪里取值?
c、还有这个case语句没有end;在记录中使用case语句有什么样的规则?是否还能使用其他诸如if等语句?
多谢各位
2 Msg: Cardinal;
3 case Integer of
4 0: (
5 WParam: Longint;
6 LParam: Longint;
7 Result: Longint);
8 1: (
9 WParamLo: Word;
10 WParamHi: Word;
11 LParamLo: Word;
12 LParamHi: Word;
13 ResultLo: Word;
14 ResultHi: Word);
15 end;
以上是Messages.pas单元中对TMessage的定义,不明之处有以下几点:
a、第一行的 packed 是什么意思?
b、第三行的case语句中的 Integer 从哪里取值?
c、还有这个case语句没有end;在记录中使用case语句有什么样的规则?是否还能使用其他诸如if等语句?
多谢各位