字符串替换问题

Question

有一个字符串如下：“工程量：{工程量}*{单价}”单击button1时，将字符串“2.3”替换“{工程量}”，将字符串“4.3”替换“{单价}“,并计算结果。请问该如何写代码？谢谢帮忙！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var tmp,Str: String;
begin
  Str := '工程量：{工程量}*{单价}';
  tmp := StringReplace(Str, '{工程量}','2.3', [rfIgnoreCase]);
  tmp := StringReplace(tmp, '{单价}','4.3', [rfIgnoreCase]);
  Edit1.Text := tmp;
end;

Answer 2

要计算结果的话就直接这样：
procedure TForm1.Button1Click(Sender: TObject);
var Str: String;
begin
  Str := '工程量：{工程量}*{单价}';
  Edit1.Text := StringReplace(Str, '{工程量}*{单价}',FloatToStr(2.3*4.3), [rfIgnoreCase]);
end;

Answer 3

不明白搂主的意思。直接edit1.text：=‘工程量：’+FloatToStr(2.3*4.3) ；不就可以了？