连成一行了,晕

解决方案 »

  1.   

    memo1.Lines.Add('abc');
     Memo1.Lines.Add('good');
      

  2.   

    我的没问题:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    str:string;
    begin
    str:= 'abc' + #13 + #10 + 'good';
    Memo1.Lines.Add(str);
    end;
    这样肯定可以:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    str:TStringList;
    begin
    str:=TStringList.Create;
    str.DelimitedText:= 'abc' + #13 + #10 + 'good';
    Memo1.Lines.AddStrings(str);
    str.Free;
    end;