Enlaces con otros porgramas

[__cadetill]

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)