Delphi中多个字符串合并成一个字符串

Question

在Delphi中，将两个字符串合并成一个串的函数是哪个？如果没有，有哪位大虾给提供个算法参考，谢谢

Answer 1

s := s1 + s2 ;

Answer 2

var
s1,s2,s3 : string;
begin
  s1 := 'abc';
  s2 := '123';
  s3 := s1+s2;//s3='abc123';
end;

Answer 3

procedure TForm1.BtnAddClick(Sender: TObject);
var
  AddStr:String;
  i,j:integer;
begin
  AddStr:=edtAddStr.Text;
  
//  if OpenDlg.Execute then
//  begin
    for i:=0 to OldStr.Count-1 do
      NewStr[i]:=AddStr+OldStr[i];
    for j:=0 to NewStr.Count-1 do
      MemNew.Lines.Add(NewStr[j]);
//  end;
end;
-----提示:List index out of bounds(0)
新手上路，望大虾们引个路，谢谢！

Answer 4

procedure TForm1.BtnAddClick(Sender: TObject);
var
  AddStr:String;
  i,j:integer;
begin
  AddStr:=edtAddStr.Text;
  
//  if OpenDlg.Execute then
//  begin
    for i:=0 to OldStr.Count-1 do
      NewStr[i]:=AddStr+OldStr[i];
    for j:=0 to NewStr.Count-1 do
      MemNew.Lines.Add(NewStr[j]);
//  end;
end;
-----提示:List index out of bounds(0)
新手上路，望大虾们引个路，谢谢！
------------------------------------------
oldstr、newstr什么东东？？？？

Answer 5

newstr,oldstr是Tstringlist类
----------------------你oldstr的内容怎么来的呢？？

Answer 6

procedure TForm1.BtnAddClick(Sender: TObject);
var
  AddStr:String;
  i,j:integer;
begin
  AddStr:=edtAddStr.Text;
  
//  if OpenDlg.Execute then
//  begin
    NewStr.Clear;
    for i:=0 to OldStr.Count-1 do
      NewStr.Add(AddStr+OldStr[i]);
    for j:=0 to NewStr.Count-1 do
      MemNew.Lines.Add(NewStr[j]);
//  end;
end;

Answer 7

procedure TForm1.BtnAddClick(Sender: TObject);
var
AddStr:String;
i,j:integer;
begin
AddStr:=edtAddStr.Text;// if OpenDlg.Execute then
// begin
NewStr.Clear;
for i:=0 to OldStr.Count-1 do
NewStr.add(AddStr+OldStr[i]);
for j:=0 to NewStr.Count-1 do
MemNew.Lines.Add(NewStr[j]);
// end;
end;

Answer 8

procedure TForm1.BtnAddClick(Sender: TObject);
var
AddStr:String;
i,j:integer;
begin
AddStr:=edtAddStr.Text;// if OpenDlg.Execute then
// begin
for i:=0 to OldStr.Count-1 do
MemNew.Lines.Add(AddStr+OldStr[i]); //<--- 这样不就行了，干嘛要用newstr呢？
// end;
end;

Answer 9

解决了，谢谢keyz(Keyz)和上面的各位！