dakle kao u onoj tvojoj aplikaciji imas 5 buttona, + - / * i =. Imas i jedan edit u koji se upisuje broj. Deklarises dve TStringlist, globalno.
Code:
var
brojevi,oper: TStringList;
u form oncreate stavis:
Code:
brojevi := TStringlist.create;
oper := TStringlist.create;
svaki od buttona sem = u sebi ima:
Code:
brojevi.add(edit1.text);
oper.add('*'); // ili koja je vec operacija na tom buttonu.
sad u onclick za = ubacis ovako nesto:
Code:
var
x,y,z : integer;
begin
for z:=o to oper.count -1 do
if oper[z] = '*' then
begin
x := strtoint(brojevi[z]);
y := strtoint(brojevi[z+1]);
x := x * y;
brojevi.insert(z,inttostr(x));
brojevi.delete(z+1);
oper.delete(z);
end;
kad proveri za mnozenja, onda predjes na deljenje, pa sabiranje, oduzimanje...