==============================================
procedure TfrmMain.Button1Click(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.create;
//这里将地址@sl存进数据库或XML
end;==============================================
procedure TfrmMain.Button1Click(Sender: TObject);
var
p: Pointer;
begin
//p:=@sl 这里从数据库或XML中取出信息,p要得到前面那个对象
TStringList(p^).Add('Connection');
end;
procedure TfrmMain.Button1Click(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.create;
//这里将地址@sl存进数据库或XML
end;==============================================
procedure TfrmMain.Button1Click(Sender: TObject);
var
p: Pointer;
begin
//p:=@sl 这里从数据库或XML中取出信息,p要得到前面那个对象
TStringList(p^).Add('Connection');
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货