Ver Mensaje Individual
  #2  
Antiguo 17-11-2009
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
coso Va por buen camino
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.
Responder Con Cita