如何讲TStrings 转换成 String或是TCaption？

Question

i:string;
i :=List.Text;
i:=List.Strings[0];
都不行
Edit.Text:=List.Strings[0];
也不行，运行到这类代码就有错误！要加什么头文件吗？

Answer 1

简单的问题，抢个先吧～～
Edit.Text := List.Text;

Answer 2

就是不行啊，我也不知道怎么回事。。
access violation at address 0044f8f0 in module 'project.exe' read of adress 00000000
怎么回事？
我用memo.lines:=List;
再Edit.text:=memo.lines[3];
这样就没有问题。

Answer 3

把你的代码铁出来List 你创建了么 TStrings类的 ValueFromIndex[i]  取得一个字湖窜

Answer 4

list是个什么东西，是动态的吗？有没有先TString.Create下

Answer 5

TStrings是一个虚类，里面的方法都没实现的～～创建TStringList实例来操作～～

Answer 6

list是个什么东西，是动态的吗？有没有先TString.Create下

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
var
  List:TStrings;
begin
List.Create;
Get_RemoteIP(List);
Edit1.Text := List.Strings[0];//就是这里了，运行到这里就有问题
list.Free;
end;

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
var
  List:TStrings;
begin
  List := TStringList.Create; //自己是创建不了自己的·！-_-!!!～～
  try
    Get_RemoteIP(List);
    Edit1.Text := List.Strings[0]; //就是这里了，运行到这里就有问题
  finally
    List.Free;
  end;
end;

Answer 9

procedure Tfrmamin.btn2Click(Sender: TObject);
const
constr :String = 'aaa,bbb,ccc,ddd';
var
strs :TStrings;
i :Integer;
str:string;
beginstrs := TStringList.Create;
strs.CommaText := constr;
//for i := 0 to Strs.Count-1 do
 str:=Strs[2];//指定某个值ShowMessage(str);end;