RichEdit保存数据后再重新加载，所有数据变成了乱码，如何解决？(100分)

leey:
使用您提供的程序确实能够实现我的要求。不知道您用过
RichEdit3.01 for D7
http://www.playicq.com/down_file.php?id=14969
这个没，能不能使它实现我的要求？
另外：
来自：zjan521, 时间：2004-5-16 19:06:37, ID：2612954
和后缀名(文件类型)有关,把文件存为 *.rtf
procedure TRichEditStrings.LoadFromFile(const FileName: string);
var
Ext: string;
Convert: PConversionFormat;
begin
Ext := AnsiLowerCaseFileName(ExtractFileExt(Filename));
System.Delete(Ext, 1, 1);
Convert := ConversionFormatList;
while Convert <> nil do
with Convert^ do
if Extension <> Ext then Convert := Next
else Break;
if Convert = nil then
Convert := @TextConversionFormat;
if FConverter = nil then FConverter := Convert^.ConversionClass.Create;
try
inherited LoadFromFile(FileName);
except
FConverter.Free;
FConverter := nil;
raise;
end;
RichEdit.DoSetMaxLength($7FFFFFF0);
end;
上面的写在什么地方？我在我的程序中怎么无法实现？请帮忙看看。谢谢。

lear_ner的贴也太长了吧

zhyesno,zjan521,刀剑如梦,东仔,多情剑客无情剑,听月人到下面取分：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2551724
leey请到下面取分：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2155347