Delphi中预想不到的代码II

Question

SizeOf(Self) = ?;
  SizeOf(12364) = ?;
  SizeOf('MM')= ? ;
  SizeOf('A') = ? ;
  SizeOf('PLMM AND SG') = ?;
  SizeOF(Sender)= ?

Answer 1

Memo1.Lines.Add(' zswang (伴水)(准备去流浪)  ' + sLineBreak + 'cobi(我是小新)' + sLineBreak + 'ollea(自由的灰尘) ' );
???

Answer 2

.....
TypInfo
....
type
  TInputFrm = class(TForm)
  A : Tzswang (伴水)(准备去流浪);
  B : Tcobi(我是小新);
  C : Tollea(自由的灰尘); 
  D : Tshuixin13(心帆); 
  .....
  L : Txgto(....);
  M : Ttorble(阿裕) ;
  N : Tihihonline(小小->不要再流浪！！) ;procedure TInputFrm.Button1Click(Sender: TObject);
var
  Value : Variant;
begin
  Value := GetPropValue(Components[I],'Sex');
  if Value <> VarNull then
  begin
    Memo1.Lines.Add(Components[I].Name + 'Caption'  + ' = ' + String(Value));
  end else
    Memo1.Lines.Add(Components[I].Name + '谁知道他是谁啊？男 ？ 女' ');

Answer 3

恕我愚昧，
{$MESSAGE HINT '看一看'} //Delphi6适用
这个怎么用？

Answer 4

{$MESSAGE Hint '看一看'} 
{$MESSAGE '程序的这里需要调试'}放在单元文件里，在加载窗体文件的时候写上，如；。
var
  tsrkeditfrm: Ttsrkeditfrm;implementation
uses
  Data;{$R *.dfm}
{$MESSAGE '程序的这里需要调试'}procedure Ttsrkeditfrm.FormShow(Sender: TObject);
var
  I : Integer;
begin。。

Answer 5

偶尔测试几个，测试结果如下：
{ No.3 常量表达式的下标 }
Caption := '你'[1] + '好'[2];
----拿
{ No.4 脱字号表达的字符 }
Caption := ^:^3^7^!^.^'; //这句可以没有写错
----zswang
{ No.7 "X[:X[:X]]"格式 }
var S: string;
begin
  Str(123456.7890:0:2, S); //直接学Delphi的人大多数不会知道
  Caption := S;
end;
-------123456.79
呵呵，小弟是新手，还麻烦老师给讲解以下原理吧！以解小弟之疑惑！