请问如何得到TStringList.Strings[0]的地址？(50分)

小花生 · 2002-06-15

我的测试：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
tsl : TStringList;
p : pointer;
begin
tsl := TStringList.Create
tsl.Insert(0,'abc');
p := @tsl.Strings [0]
//有问题。
end;

zqqxh · 2002-06-15

好象DELPHI里不是用@来传递地址指针的吧?
你试试:
p := pchar(tsl.Strings [0]);

Pearl. · 2002-06-15

var
lst: TStringList;
p: Pointer;

begin
lst := tstringlist.create;
p := @(pstringItem(integer(lst)+TStrings.InstanceSize)^.FString);
end;

qdyoung · 2002-06-15

要这个地址干什么
Stings是个数组属性，没有真实地址

-----
http://www.8421.org

张无忌 · 2002-06-15

你是不是想用Move类的函数？？

5291 · 2002-06-17

我认为是类型错了：

var
tsl : TStringList;
p : string
//应该是string吧
begin
tsl := TStringList.Create
tsl.Insert(0,'abc');
p := @tsl.Strings [0]

end;

小花生 · 2002-06-25

请斑竹取消这个问题吧

stiwin · 2002-07-18

@ 或Addr好象可以得到地址

请问如何得到TStringList.Strings[0]的地址？(50分)

小花生

Unregistered / Unconfirmed

zqqxh

Unregistered / Unconfirmed

Pearl.

Unregistered / Unconfirmed

qdyoung

Unregistered / Unconfirmed

张无忌

Unregistered / Unconfirmed

5291

Unregistered / Unconfirmed

小花生

Unregistered / Unconfirmed

stiwin

Unregistered / Unconfirmed

Similar threads