Suma en un Edit

[look]

Empezado por coso

Hola,
deberas crear un parser. Te pongo un ejemplo:

Código Delphi [-]function parsestring(s : string) : string; var v1,v2 : string; vv1,vv2 : integer; n : integer; begin n := Pos('+',s); if n <> 0 then begin v1 := Copy(s,0,n-1); v2 := Copy(s,n+1,length(s) - n); try vv1 := strtoint(v1); except vv1 := 0; end; try vv2 := strtoint(v2); except vv2 := strtoint(parsestring(trim(v2))); end; s := inttostr(vv1 + vv2); end; result := s; end;


y en el onkeydown del edit, o en el OnExit

Código Delphi [-]edit1.text := parsestring(edit1.text);


es solo un ejemplo con la suma. Con mas operaciones te sera muy laborioso. Un saludo.

nitido. saludos