Código Delphi
[-]
if Assigned(FormListOutput) then
begin
FormListOutput.Close;
FormListOutput.Destroy;
end;
Destroy no se puede llamar, tienes que llamar a Free, por otra parte, despues de destruirlo, FormListOutput (que en realidad es un puntero) no queda fijado a nulo, por tanto, puede entrar en ese if dando Access violation.
Useasé:
Código Delphi
[-]
if Assigned(FormListOutput) then
begin
FormListOutput.Close;
freeAndNil(FormListOutput);
end;
Deberíamos ver que haces en el evento Onclose de cada formulario.
PD: Por favor,Edita el mensaje original y encierra el código entre
[ delphi ]
aqui vuestro codigo
[ /delphi ]
(sin espacios entre corchetes) Así consigues que respete el identado y aparezca las palabras reservadas en negrita y colores.
otras etiquetas:
code
sql
php
quote (citar un texto dicho por otra persona) [quote=Lepes] se transforma
en "Originalmente publicado por Lepes"
Código Delphi
[-]
procedure Saludos();
begin
ShowMessage(' Un saludo y hasta luego');
end;
Un saludo