Richeedit问题求助

amdcpu 发布于 2010-08-22 16:16， 725 次点击

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile('c:\bootbak.txt');
end;
这样按下Button控件就可以直接txt内容加载在Richedit的文档上。。
要是我想直接把bootbak.txt 的内容直接写在程序里面按下button也能实现在Richedit上要怎么实现

比如 bootbak.txt 里面有1000多个字

2 回复

chenhao198602010-09-27 10:47

没有必要，在程序里就写死了

ni__haha2010-12-09 08:23

你用个opendialog组件吧，这样更方便。
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.execute;
RichEdit1.Lines.LoadFromFile('c:\bootbak.txt');
end;