如何向delphi确定的对话框添加信息

问题描述

我需要获取 Delphi 解决的信息并在弹出对话框中显示答案

procedure TfrmPointsCalculation.btncalculateClick(Sender: TObject);
var
 rinput: real;
 ipionts: integer;
 bntcalculculate: integer;
begin
 rinput := strtofloat(edtamount.Text);

 ipionts := trunc (rinput/500)*5 ;

 reddisplay.lines.add('Amount Spent' + #9 +floattostrF(rinput,ffcurrency,8,2));

 reddisplay.Lines.add('Pionts Earned' +#9 + inttostr(ipionts));

 bntcalculculate := messagedlg ('',mtConfirmation,[mbOk],0);

我应该在 ('') 中放入什么代码来显示 Delphi 找到的答案？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）