Astăzi, vom scrie un calculator simplu pe limbajul de programare Delphi.
Noi adăugăm patru butoane și trei câmpuri de text.
Aranja toate elementele după cum doriți.
Am făcut acest lucru:
Pentru a adăuga un buton:
Pentru a scădea butoane:
Pentru butonul de multiplicare:
Pentru a împărți butonul:
După cum puteți vedea în codul este starea prezentă Dacă (Edit1.Text <> '') Și (Edit2.Text <> '') Apoi. care verifică pentru câmpurile de text goale edit1 și Edit2, în cazul în care acestea sunt goale, iar noi apăsați butonul, nu se întâmplă nimic, și să ne salveze de eroare.
Acum să vorbim despre transformare.
Pentru a efectua acțiuni cu numerele de care avem nevoie pentru a face dintr-un tip numeric de tip string.
StrToFloat (Edit1.Text) + StrToFloat (Edit2.Text) - conversia la un tip șir în fracționar (virgulă mobilă) și produc adăugarea acestor numere.
Edit3.Text: = FloatToStr - acum că am finalizat acțiunea, avem nevoie pentru a deduce răspunsul la Edit3, dar din nou, aveți nevoie pentru a converti, deoarece Editare - păstrează tipul șir de caractere și cu ajutorul FloatToStr. am converti la un tip de șir.
În cele din urmă a verifica:
