数据保留小数以及文件存盘的问题

Question

1. 如果是输出显示的话用 Format，如：Format('%.2f',[FloatVar]]);2. RichEdit1.Lines.SaveToFile('Myfile.txt');

Answer 1

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;嘿嘿稍微改动下就可以了