我用richedit(语法高亮)+memo(保存纯文本)来完成文本处理
把RichEdit.PlainText:=true; 这个不太好吧,无法保存字体设置了,:(
假设EditForm上有Editor(为richedit控件),MemoEditor(memo控件), 等控件
//存盘过程
procedure TEditForm.Save1Click(Sender: TObject);
begin
; if PathName = DefaultFileName then
; ; SaveAs1Click(Sender)
; else
; begin
// 把richedit中的内容copy到memoedit中;
//存储为纯文本!
; ; Editor.SelectAll;
; ; Editor.CopyToClipboard;
; ; MemoEditor.Clear;
; ; MemoEditor.PasteFromClipboard;
; ; MemoEditor.Lines.SaveToFile(PathName);
;//如果有格式化文本的过程,以下三句可以不要
; ;Editor.Lines.SaveToFile(PathName+'.rtf'); ;
; ;Editor.Modified := False;
; ; Editor.SelLength:=0;
; end;
end;