taschenrechner mit 1 editfeld

[marabu]

Hi,

das Geheimnis ist: du benötigst einen Speicher für dein letztes Ergebnis:

Delphi-Quellcode:

type
  TCalculator = class(TForm)
    NumEdit: TEdit;
  ...
  private
    FMemory: double;
    procedure SetMemory(memory: double);
  public
    property Memory: double read FMemory write SetMemory;
  ...
  end;

procedure TCalculator.SetMemory(memory: double);
begin
  FMemory := memory;
  NumEdit.Text := FloatToStr(memory);
end;

procedure TCalculator.ResetButtonClick(Sender: TObject);
begin
  Memory := 0;
end;

procedure TCalculator.PlusButtonClick(Sender: TObject);
begin
  Memory := FMemory + StrToFloat(NumEdit.Text);  
end;

Nur getippt, nicht getestet, aber vielleicht fällt ja jetzt bei dir schon der Groschen...

Grüße vom marabu