Cita:
Empezado por ecfisa
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 begin
ShowMessage('Error en la nota ingresada'); SetFocus 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