RichEdit的简单问题！在线等待！

Question

怎么使RichEdit1.Lines.LoadFormFile('c:\1.txt')导入的内容充满RichEdit。
例如：
（实际导入结果）
我爱你，谢谢。
我爱你，
谢谢。
（期望的结果）
我爱你，谢谢。
我爱你，谢谢。
请高手指教。

Answer 1

你的 1.txt 里面是什么内容？你说的充满是什么意思？RichEdit 的容量是2GB，你想都充满？

Answer 2

txt的内容是：我爱你，谢谢。
我爱你，谢谢。但是导入后在RichEdit显示的结果却是：我爱你，谢谢。
我爱你，
谢谢。请问这个问题怎么解决？？？？？？？？？？？

Answer 3

// 试试 :procedure TForm1.FormCreate(Sender: TObject);
var
  TS : TStrings ;
  i : Integer ;
begin
  Ts := TStringList.Create ;
  Ts.LoadFromFile(ExtractFilePath(Application.ExeName) + 'FileName.txt') ;
  for i := 0 to Ts.Count - 1 do
    RichEdit1.Lines.Add(Ts.Strings[i]) ;
end;

Answer 4

最多再加一个   RichEdit1.Clear ;怎么可能不行呢 ?:)

Answer 5

http://expert.csdn.net/Expert/topic/1778/1778989.xml?temp=6.524295E-02

Answer 6

SDK的帖我已经结了，就是在英文处理方面有点问题。不过算了，我要的是中文的。

Answer 7

主要问题就是那个WordWrap 的问题，你又不舍得变成false.

Answer 8

procedure TNotePadForm.FormCreate(Sender: TObject);
var
  Filename: string;
begin
    Filename:=Application.ExtractFilePath(Application.ExeName) + 'FileName.txt'
    RichEdit.Lines.LoadFromFile(FileName);
  end;
end;