即使在 for 循环中增加了金额，备忘录仍然显示相同的货币值

Question

出于某种原因，此代码只会输出与在 TextEdit 中输入的数字相同的数字。输出格式应该是

3000 美元
3300 美元

等等。

procedure TfrmProjection.BtnCalculateClick(Sender: TObject);
var
  counter, i : integer;
  total, sales, average, projsales : double;
begin
  sales := StrtoFloat(edtSales.Text);
  redOutput.Lines.Add('INCREASE IN SALES');
  for i := 1 to 12 do
    redOutput.Lines.Add(FloattoStr(i) + #9 + #9 + FloattoStrf(sales, ffCurrency, 9, 2));
  sales:= sales * 1.1;
end;

有谁知道如何解决这个问题？

Answer 1

您遗漏了开始结束块，so sales * 1.1 直到结束才会调用。

procedure TForm1.Button1Click(Sender: TObject);
var
  counter, i: integer;
  sales, average, projsales : double;
begin
  sales := StrtoFloat(edtSales.Text);
  redOutput.Lines.Add('INCREASE IN SALES');
  for i := 1 to 12 do
  begin
    redOutput.Lines.Add(FloattoStr(i) + #9 + #9 + FloattoStrf(sales, ffCurrency, 9, 2));
    sales:= sales * 1.1;
  end; 
end;

即使在 for 循环中增加了金额，备忘录仍然显示相同的货币值

Memo keeps displaying same currency value even though amount is increased in a for loop

delphi

delphi-2010