Buenas, soy nuevo y estaba buscando un foro de apoyo a los estudios, para aclarar muchas de las dudas que el profesor no quiere o no sabe solucionar xD
Si me podeis ayudar os lo agradeceré.
Mi duda es la siguiente, en un formulario de lectura de datos tengo que leere entre otros un dato numérico y quiero hacer que si el usuario introduce algo distinto a un numero en el edit Le avise con un showmessage antes de petar.
He mirado por foros y con un Try Except debería ir, mi profesor me dijo q lo hiciera asi, pero como si nada, si pongo un numero va bien , normal, pero si pongo una letra peta el prrograma =.
Este es el codigo al pulsar el boton OK;
Código Delphi
[-]
procedure TFrInserir.BoknormalClick(Sender: TObject);
begin
Crearptr;
UCA.insertf(actvol);
close;
end;
Y este es el codigo del Procedure CrearPtr:
Código Delphi
[-]
Procedure TFrInserir.crearptr;
begin
new(actvol);
actvol^.Comp:=ecomp.text;
Try
actvol^.Num:=Strtoint(enum.text);
Except
on E: EConversionError do
ShowMessage('Numero de vol incorrecte');
end;
actvol^.Avio:=Eavio.Text;
actvol^.desti:=edesti.Text;
actvol^.ptotal:=Strtoint(eptotal.Text);
end;
El programa es una especie de mantenimiento de vuelos de un aeropuerto, los vuelos son punteros de un registro, por ahora lo estoy intentando solo con el numero de vuelo, pero si lo consigo lo ahria tambien con el numero de plazas totales (ptotal).
Añadir tambien, que es el proyecto final de curso, y la verdad me urge un poco, la semana que viene tengo que entregarlo y cuanto mas lo perfeccione mejor. Si alguien esta interesado tambien le puedo pasar el proyecto entero.
Gracias y un Saludo.