一个小程序都搞不好真郁闷！！！！！！！！！！个位大虾帮帮看下。(50分)

新

新 手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #1

我做了一个记事本在用opendialog打开一个文档时在richedit中显示的是乱码，在用savedialog中保存文本时我在filter的属性中设置了个中文本格式，可是在保存时不能保存成相应的格式，如word格式的！代码如下
if(opendialog1.execute)then
begin
richedit1.lines.loadfromfile(opendialog1.filename);
end;
if(richedit1.modified)then
if(savedialog1.execute)then
begin
richedit1.lines.savetofile(savedialog1.filename);
end;
是不是还要设置richedit的什么属性呀！！！

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #2

richedit换成Memo试试

 

新

新 手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #3

我也试过了也是出现相同的问题，我怀疑是不是那个属性我没有设呀！！！

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #4

对了,楼主兄弟，你没有设置 richEdit1.PlainText 此属性。

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #5

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.PlainText:= false;
if OpenDialog1.Execute then
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SaveDialog1.DefaultExt:= 'doc';
if SaveDialog1.Execute then
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end;

 

W

wade2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-11

• #6

[][]

 

T

tianlove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-11

• #7

学习 ：）