Memo zeigt den gleichen Währungswert an, obwohl der Betrag in einer for-Schleife erhöht wird

Question

Aus irgendeinem Grund wird dieser Code nur die gleiche wie die eingegebene Zahl ausgeben wie im TextEdit. Das Format der Ausgabe sollte wie sein

1. $ 3000
2. $ 3300

und so weiter.

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; 

Wer weiß, wie man in der Lage sein würde, dies zu korrigieren?

Answer 1

Sie haben einen Anfang Ende Block verlassen, so sales * 1.1 wird nie bis zum Ende aufgerufen.

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;