数据保留小数以及文件存盘的问题 1. 如果是输出显示的话用 Format,如:Format('%.2f',[FloatVar]]);2. RichEdit1.Lines.SaveToFile('Myfile.txt'); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button19Click(Sender: TObject);begin SaveDialog1.DefaultExt:='txt'; SaveDialog1.Options:=[ofAllowMultiSelect,ofFileMustExist,ofOverwritePrompt]; SaveDialog1.Filter:='Text files (*.txt)|*.txt|All files (*.*)|*.*'; SaveDialog1.FilterIndex:=2; if SaveDialog1.Execute then Memo2.Lines.SaveToFile(SaveDialog1.FileName); end;嘿嘿稍微改动下就可以了 com组件调用组件外的过程? 儿子出生,散分~~ 请问两个控件类型的问题 请大家为我解决一个问题!已经折腾我好久了! 如何把一个text文件的内容读到 string变量里面 如何在运行时《调出控件属性窗口》设置控件的属性? 关于用TComboBox模仿QQ选取头像的下拉列表的问题。 delphi中memo是什么组件? delphi6 中控件面板上怎么找不到有关开发多层系统的控件?救命啊。 看看了 请教一个关于事件触发的问题? 请教delphi中有关事件的问题
begin
SaveDialog1.DefaultExt:='txt';
SaveDialog1.Options:=[ofAllowMultiSelect,ofFileMustExist,ofOverwritePrompt];
SaveDialog1.Filter:='Text files (*.txt)|*.txt|All files (*.*)|*.*';
SaveDialog1.FilterIndex:=2;
if SaveDialog1.Execute then
Memo2.Lines.SaveToFile(SaveDialog1.FileName);
end;嘿嘿稍微改动下就可以了