rufo
14-12-2009, 17:45:29
Hola amigos aqui de nuevo visitandolos y consultandolos, resulta que quiero hacer lo siguiente, es decir quiero multiplicar dos memos y que me visualice el resultado en otro memo cuando digite la cantidad en un memo y digite la otra cantidad en otro memo me aparesca automanticamente sin presionar cualquier boton el resultado en el otro memo, les anexo el codigo que estoy empleado en el memo que digito la segunda cantidad:
procedure TFacturacion.Memo3Change(Sender: TObject);
var
no3,no4:double;
begin
no3:=strtofloat(memo2.Text);
no4:=strtofloat(memo3.Text);
memo4.Text:=formatfloat('0.00',no3*no4);
end;
end.
El codigo esta bien cuando captura la primera linea pero al pasar a la segunda linea del segundo memo es cuando me marcar el siguiente error:
'10 15' is not valid floating point value
Espero que me ayuden y gracias de antemano y otro dato mas uso delphi 5
procedure TFacturacion.Memo3Change(Sender: TObject);
var
no3,no4:double;
begin
no3:=strtofloat(memo2.Text);
no4:=strtofloat(memo3.Text);
memo4.Text:=formatfloat('0.00',no3*no4);
end;
end.
El codigo esta bien cuando captura la primera linea pero al pasar a la segunda linea del segundo memo es cuando me marcar el siguiente error:
'10 15' is not valid floating point value
Espero que me ayuden y gracias de antemano y otro dato mas uso delphi 5