用TRichEdit控件啊。procedure TRichStrEditDlgEh.FileSaveAs(Sender: TObject); begin if SaveDialog.Execute then begin if not (AnsiUpperCase(Copy(SaveDialog.FileName,Length(SaveDialog.FileName)-3,4)) = '.RTF') then SaveDialog.FileName := SaveDialog.FileName + '.rtf'; if FileExists(SaveDialog.FileName) then if MessageDlg(Format(sOverWrite, [SaveDialog.FileName]), mtConfirmation, mbYesNoCancel, 0) <> idYes then Exit; //Editor.Lines.SaveToFile(SaveDialog.FileName); Editor.Lines.SaveToStream(BLOLSTREAM);//!!!!!!! Editor.Modified := False; SetModified(False); end; end;
begin
if SaveDialog.Execute then
begin
if not (AnsiUpperCase(Copy(SaveDialog.FileName,Length(SaveDialog.FileName)-3,4)) = '.RTF') then
SaveDialog.FileName := SaveDialog.FileName + '.rtf';
if FileExists(SaveDialog.FileName) then
if MessageDlg(Format(sOverWrite, [SaveDialog.FileName]),
mtConfirmation, mbYesNoCancel, 0) <> idYes then Exit;
//Editor.Lines.SaveToFile(SaveDialog.FileName);
Editor.Lines.SaveToStream(BLOLSTREAM);//!!!!!!!
Editor.Modified := False;
SetModified(False);
end;
end;
表格字段该是什么类型?
取出时该如何处理,用的是RichEdit解决后马上给分