Delphi kalkulator i=i+a

Delphi kalkulator i=i+a
afc90
afc90
afc90
afc90
  • Rejestracja:prawie 13 lat
  • Ostatnio:około 11 lat
  • Postów:48
0

Witam, jestem zupełnie początkujący w Delphi. Miałem dopiero pierwszy wstępny, teoretyczny wykład dotyczący aplikacji w delphi.
Walczę z kalkulatorem. Chcę wpisać liczbę, kliknąć "dodaj" i wpisać kolejną liczbę. Ta doda się do poprzedniej.

Kopiuj
procedure TForm1.Button1Click(Sender: TObject);
var
a,i :  Real;
begin

if i=0 then
  begin
    i:=StrToFloat(Edit1.Text);
    Edit1.text := '';
  end
else
  begin
    i:=i+StrToFloat(Edit1.Text);
    Edit1.text := '';
  end;

Edit3.Text := FloatToStr (i);
end;
Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown
babubabu
babubabu
babubabu
babubabu
  • Rejestracja:około 13 lat
  • Ostatnio:3 miesiące
  • Lokalizacja:Łódź
  • Postów:648
0

No w ten sposób to nie działa ale jesteś blisko.
Zadeklaruj dwie zmienne widoczne dla klasy formatki bo po kliknięciu buttona wszystkie danie i tak Ci znikną. Jedna Zmienna będzie przechowywała wartość po pierwszym kliknięciu a następnie dodawała wartość po drugim kliknięciu, a druga wartość będzie przechowywała wiadomość ile razy kliknąłeś button.

Udostępnij
Kopiuj link do postu Kopiuj link do postu jako Markdown

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.

Utwórz konto