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

  dw1 := pdw^;

  inc(pdw);dw2 := pdw^;

  inc(pdw);dw3 := pdw^;

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

                         [dw1,dw2,dw3]) );

  s2 := s;

  p1 := pointer(pchar(s));

  p2 := pointer(pchar(s2));

  showmessage(format('p1=%p,p2=%p',[p1,p2]));

  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('[after assign]size:%d, ref:%d, len:%d',

                        [dw1,dw2,dw3]) );

  s2 := s2 + 'another string';

  p1 := pointer(pchar(s));

  p2 := pointer(pchar(s2));

  showmessage(format('p1=%p,p2=%p',[p1,p2]));