Jednoducha kalkulacka – Delphi – Fórum – Programujte.com

Chcem si spravit jednoduchu kalkulacku so vstupnym polickom a tlacitkom vyratat. ak si dam:

var i:integer

begin

i := 5+5

edit1.text := IntToStr(i);

end;

i := StrToInt(edit1.text);

i := i;

edit1.text := IntToStr(i);

jenze strtoint umi prevest pouze jednu hodnotu...
aby ti to zvladlo udelat 5+5 musis to zpracovat pomoci nejakeho parseru a vyhodnotit ...

Predpokladam predne ze nechces parsovat 5+5 primo, tedy ze nechces udelat neco co ti prevede retezec
5*(7-9) na pocetni operace

Budes si muset dat tlacitko +,-,*,....

Po prvnim stisku "+" ulozis do globalni promenne g1:=strtoint(); a musis zadavat jen 5 (cislo!) do policka
zaroven smazes edit1.text:='';
ulozis si typ operace scitani (treba vyctovym typem)

Po stisku tlacitka jakehokoliv dalsiho tlacitka (treba "=") udelas operaci(soucet) g1 se strtoint(edit1.text) a vysledek vypises.

No a na rekurzivni prevod/vypocitani celeho vyrazu ti tu to vypisovat nebudu da se toho na internetu najit habadej(nebo se k tomu dokouses casem).
EDIT:vicemene jsem obslehl co psal KIIV.

OK dakujem, skusim s tym nieco spravit