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