我的8个问题汇编(100分）

Question

（1）和（2）我觉得都用copy等字符串函数来处理比较简单
（3）要用个API（听人说过，具体哪个我也不知道）。
其实灵活使用FormatDateTime函数就可以把所有的日期格式等问题搞定。
（4）＜5开发指南＞上说了，string不可以用[0]来取长度，只能用length。（6）用Query1.Fields[0].AsInteger来读我就会这几个。

Answer 1

copy+pos函数TDateTimePicker控件不必判断，永远用format(date,'YYYY-MM-DD')ShowMessage(IntToStr(Byte(kk[0])))p:^char   p:=@kk[1];for i:=0 to byte(kk[0]) do begin showmessage(p^);inc(p) end@kk=@kk[0]@kk+3;treg=packed record
    case integer of
      0:(eax:dword);
      1:(ax:word;axlo:word);
      2:(ah:byte;al:byte;);
    end;select value=count(fiedname)  from  table1;   fieldbyname('value')=the count不一定我也忘了

Answer 2

weenyboy大哥，你真牛，高手高手！！
   treg=packed record
    case integer of
      0:(eax:dword);
      1:(ax:word;axlo:word);
      2:(ah:byte;al:byte;);
    end;
变体定义我知道，在程序中怎么使用呢？ 

Answer 3

weenyboy大哥，你真牛，高手高手！！
  treg=packed record
    case integer of
      0:(eax:dword);
      1:(ax:word;axlo:word);
      2:(ah:byte;al:byte;);
    end;
变体定义我知道，在程序中怎么使用呢？

Answer 4

比如：
  引用上述记录，完成以下工作：首先让eax=0xffffffff,然后将高16位=0
你可以：
  reg:treg;
  reg.eax:=0xffffffff;
  reg.eax:=reg.eax & 0x0000ffff;
你也可以：
  reg.eax:=0xffffffff;
  reg.ax:=0;
明白了吗？ax=eax的高16位

Answer 5

对不起，我上面说错了，ax应该是eax的底16位，procedure TForm1.Button1Click(Sender: TObject);
type
treg=packed record
    case integer of
      0:(eax:dword);
      1:(ax:word;eaxhi:word);
      2:(ah:byte;al:byte;);
    end;
var
  reg:treg;
begin
  reg.eax :=$1111ffff;
  showmessage(format('%08x',[reg.eax]));
  reg.eax :=reg.eax and $0000ffff;
  showmessage(format('%08x',[reg.eax]));
  reg.ax :=$ffff;reg.eaxhi :=$1111;
  showmessage(format('%08x',[reg.eax]));
  reg.eaxhi :=0;
  showmessage(format('%08x',[reg.eax]));
  reg.eax :=$11110000;
  reg.ah :=$ff;reg.al :=$ff;
  showmessage(format('%08x',[reg.eax]));
  reg.eaxhi :=0;
  showmessage(format('%08x',[reg.eax]));
end;