Cita:
Empezado por ozsWizzard
Por otra parte, con la forma en la que crea los objetos, este trozo de código que ha puesto Al, petaría (daría una excepción):
Código Delphi [-]
procedure TForm1.FormDestroy(Sender: TObject);
begin
XFile1.Free;
XFile2.Free;
XFile3.Free;
end;
|
¿Donde está el problema? Free es un método seguro. Si las instancias XFile1, XFile2 y XFile3 no fueran válidas (nil) Free lo detectará y no intentará liberar algo que ya fue liberado o bien nunca fue creado.
Un objeto se crea totalmente o no se crea nada. No hay términos medios.
Saludos,