追加内容:
if opendialog1.Execute then
begin
richedit1.Lines.Append(opendialog1.FileName);
end;DOC文件具有文件头。
RICHEDIT不能打开DOC文件。
但可以打开RTF文件或者TXT文件。不敢称大哥,
希望能帮到你。
我不是为了分数而来。
if opendialog1.Execute then
begin
richedit1.Lines.Append(opendialog1.FileName);
end;DOC文件具有文件头。
RICHEDIT不能打开DOC文件。
但可以打开RTF文件或者TXT文件。不敢称大哥,
希望能帮到你。
我不是为了分数而来。
strTemp : Tstrings;
begin
if opendialog1.Execute then
begin
strTemp := TstringList.Create;
strTemp.LoadFromFile(opendialog1.FileName);
richedit1.Lines.Append(strTemp.Text);
strTemp.Free;
end;
end;道理是利用TSTRINGLIST暂存文本内容。
E-mail:[email protected]
祝你工作顺利!
今天安排了新项目,
心情好,所以才回帖,
平时很少回帖的。
我的Email快不能用了(我没交钱)。
懒得去申请其它Email。
祝你事事顺利!