Cita:
|
Empezado por Mandrago
ModDatos.ProductoPrecio.asString:=edit1.text; //Da error
|
Seguramente da error porque no es un número válido. De todas maneras, para hacer el pasi inverso al que yo te proponía, has de hacer...
Código Delphi
[-]
try
ModDatos.ProductoPrecio.AsInteger := StrToInt(edit1.text);
except
on E: Exception do
Application.MessageBox( PChar('Número incorrecto. Mesaje de error:'#13 + E.Message),
'Atención', MB_APPLMODAL or MB_ICONWARNING or MB_OK );
end;
Más o menos. Es decir, verificar que el número introducido tiene el formato correcto (sin punto de millares)