我已被它困绕3个月了!(0分)

  • 主题发起人 主题发起人 tsingmei
  • 开始时间 开始时间
T

tsingmei

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在一个RichEdit1上分别显示文章,当Button1的OnClick时显示File1,
当Button2的OnClick时显示File2,......如此下去。但当刚开始运行程序时,我又不想
让RichEdit1中显示文章。关键问题是:如何在一个软件中(*.exe)中包含多篇文章。
button1:
RichEdit.clear;
RichEdit.lines.loadfromfile('a.txt');

button2:
RichEdit.clear;
RichEdit.lines.loadfromfile('b.txt');
是可以的,但是文章要和*.exe文件在同一路径,即在同一文件夹中。但是我的要求是
如何在一个软件中(*.exe)中包含多篇文章。
 
1。放到。RS资源中去,常用也常讨论
2。添加到文件尾部再读出。也讨论过
3。。。。
 
这个问题居然困扰3个月?你就不能早点问?现在问了又不给分,什么意思嘛?
 
>>我已被它困绕3个月了
应该写“ 我出300分”,这样大家就会积极回答。
 
这个是不是你要的?
//------------------------------------------
function TForm1.GetFilePath: string;
var
OpenFile:TOpenDialog;
begin
OpenFile:=TOpenDialog.Create(Self);
OpenFile.Filter:='Text Files|*.Txt|All Files|*.*';
OpenFile.Title:='请选择一个文件';
if OpenFile.Execute then Result:=OpenFile.FileName;
OpenFile.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit.clear;
RichEdit.lines.loadfromfile(GetFilePath);
end;

 
接受答案了.
 
后退
顶部