Object Pascal中String类型的内幕探讨[2]

  s := edit1.text;

  psz := pchar(s);

  pdw := pdword(psz);

  dec(pdw);dec(pdw);dec(pdw);

  dw1 := pdw^;

  inc(pdw);dw2 := pdw^;

  inc(pdw);dw3 := pdw^;

  listbox1.items.add( format('[current]size:%d, ref:%d, len:%d',

                          [dw1,dw2,dw3]) );

end;

procedure tform1.button2click(sender: tobject);

var

  psz : pchar;

  pdw : pdword;

  dw1, dw2, dw3 : dword;

  s2 : string;

  p1, p2 : pointer;

begin

  s := edit1.text;

  psz := pchar(s);

  pdw := pdword(psz);

  dec(pdw);dec(pdw);dec(pdw);