メモはforループで金額が増加しても同じ通貨値を表示し続ける

Question

なんらかの理由で、このコードはTextEditと同じだけ入力された数値を出力します。出力のフォーマットは

1. $ 3000
2. $ 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; 

誰もが1がこれを是正することができるだろうか知っていますか？

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;