【结贴】请教SaveDialog和Memo的使用方法**

liubin · 发表于 2008-10-13 15:12:16

将Memo上的文字（大量）用SaveDialog保存，请给个例子

shangxy · 发表于 2008-10-13 15:35:38

可以想办法把memo的内容存储到一个文本字段中，然后在使用TBlobField的savetofile方法存到文件中。

liubin · 发表于 2008-10-13 15:46:49

Memo不联系到数据库，所以文本字段用不上，有其它方法吗？请给出实例代码

shangxy · 发表于 2008-10-13 15:51:38

procedure TMainForm.Button1Click(Sender: TObject);
begin
  DataSetBroker1.DataSet.Edit;
  DataSetBroker1.DataSet.FieldByName('zd4').AsString :=Memo1.Text;
  DataSetBroker1.DataSet.ApplyUpdates;
  if SaveDialog1.Execute then
  begin
TBlobField(DataSetBroker1.DataSet.FieldByName('zd4')).SaveToFile(SaveDialog1.FileName);
  end;
end;

liubin · 发表于 2008-10-13 16:01:45

谢谢楼上的回答，但如果不联系到数据库，直接吧Memo上的文字和SaveDialog组织使用，如何写代码？

shangxy · 发表于 2008-10-13 16:06:19

memo.lines.savatofile
看看

		自动登录	找回密码
密码			立即注册