如何解决string和strings的转换

Question

var
  s: string;
  ss : TStrings;
// initialize it...
s := ss.Text;ss.Text := s;

Answer 1

怎么可能????
StringList.String(index]已经是一个string了;不需要任何转换.把你的代码加上来我看看.

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
S:TStringlist;
B:String;
begin
   S:=TStringlist.Create;
   S.Add('x1');
   S.Add('x2');
   B:=S.Strings[0]+'xuxu'+S.Strings[1];
   ShowMessage(B);
   S.Free;
end;

Answer 3

var
  strlist:tstrings;
  str:string;
begin
....
  str:=ss[strlist];
....

Answer 4

写错了
var
  strlist:tstrings;
  str:string;
  n:integer;
begin
....
  str:=strlist[n];
....

Answer 5

tempstr:=tempstr+tempstrlist1[tempstrlist1.count-1];
dm.ADOQuery1.SQL:=tempstr;
提示是stringas和string不匹配

Answer 6

我还以为是字符串的问题,原来是这里出错了.
tempstr:=tempstr+tempstrlist1[tempstrlist1.count-1];
dm.ADOQuery1.SQL:=tempstr;//将此条语句改为
dm.adoquery1.sql.text := tempstr;
提示是stringas和string不匹配

Answer 7

dm.ADOQuery1.Sql中的Sql是TStrings类型，所以不匹配
改成d.ADOQuery1.Sql.add(tempstr);