Ver Mensaje Individual
  #5  
Antiguo 18-05-2012
alenbebote alenbebote is offline
Registrado
NULL
 
Registrado: may 2012
Posts: 9
Reputación: 0
alenbebote Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola alenbebote.

roman se refiere a que encierres tu código entre las etiquetas [delphi] tu_codigo [/delphi] para que se pueda leer más fácil.



Una forma, no la única pero sí sencilla, es que asignes este código al evento OnExit de cada uno de los Edits:
Código Delphi [-]
procedure TForm1.EditExit(Sender: TObject);
var
  cd: Double;
begin
  with Sender as TEdit do
  begin
    if not TryStrToFloat(Text, cd) then  // si no se puede convertir...
    begin
      ShowMessage('Error en la nota ingresada'); // mostrar mensaje de error
      SetFocus  // devolver el foco al Edit
    end
  end
end;

Saludos.
ok pero no entiendo como poner este codigo debo de hacer una variable cd:double;
me podrias ayudar en un ejemplo de mi ejercicio, es mi examen final y no eh podido con
este programa mil gracias
Responder Con Cita