String的疑问

ss[1]//var ss:String;
和
Pointer(ss)^
是不是一个意思呢？
 
答：不是。
ss[1]表示第一个字符。如：ss:='abc'
则表示'a'。ss[0]=Length(ss);
Pointer(ss)^ 和 @s 也不一样。
就连 cc:PChar
Pointer(cc)^ 和 @cc 也不一样。
 
应用：
一、发送字符串 或者 Record
 
procedure SendStr(ss:String);
var cds:TCopyDataStruct;hh:HWND;
begin
  hh:=FindWindow('TfrmFYErpMsg',nil);
  if hh<>0 then
  begin
    //cds.dwData:=Handle;可要可不要
    cds.cbData:=Length(ss)+1;//不能漏掉+1
    cds.lpData:=AllocMem(cds.cbData);//GetMem(cds.lpData,cds.cbData);可替代
    StrCopy(cds.lpData,PChar(ss));
    SendMessage(hh,WM_COPYDATA,hh,Cardinal(@cds));
    FreeMem(cds.lpData);
  end;
end;
 
  TRR=Record
    a:String[20];
    b:PChar;//这里注意，不能使用PChar这种长度可变的。
    d:Double;
  end;
procedure SendRec(aa:TRR);
var cds:TCopyDataStruct;hh:HWND;
begin
  hh:=FindWindow('TfrmFYErpMsg',nil);
  if hh<>0 then
  begin
    cds.cbData:=sizeof(aa);
//    cds.lpData:=AllocMem(cds.cbData);//GetMem(cds.lpData,cds.cbData);
    cds.lpData:=@aa;
    SendMessage(hh,WM_COPYDATA,hh,Cardinal(@cds));
//    FreeMem(cds.lpData);不知道怎么要这个？？？
  end;
end;
 
二、接收
 
procedure RecordWM(var ARec:TWMCopyData);message WM_COPYDATA;
 
procedure TfrmFYErpMsg.RecordWM(var ARec: TWMCopyData);
var s:String;x:TRR;
begin
//字符串
  s:=StrPas(ARec.CopyDataStruct^.lpData);
//Record
  x:=TRR(ARec.CopyDataStruct.lpData^);
  s:=x.a+#9+x.b+#9+FloatToStr(x.d);
end;