aliviar memoria Delphi

27/08/2020

0

bom dia!
E o seguinte, fiz um formulário que nele gera relatório (QUICKREP) conforme fotos anexadas no mesmo. Em alguns casos, pode conter até 12 fotos, onde para cada arquivo de foto eu chamo um formulário para a geração do PDF.
O problema é que começa a dar o erro de ( não há recurso de memoria disponível), devido o criação dos 12 formulários. (form1,form2,form3 etc..).
O problema que eles estão permanecendo na memoria, e cada vez aumenta a cada chamada.
Alguem sabe como posso criar , destruir e eliminar da memoria?

a chamada:
Application.CreateForm(Tfrel_form1, frel_form1);
frel_form1.QuickRep1.Refresh;
frel_form1.QRImage1.Picture.LoadFromFile(edit1.TEXT);
try
frel_form1.QuickRep1.Prepare;
frel_form1.QuickRep1.PrinterSettings.PrinterIndex:= ListBox2.ItemIndex;
frel_form1.QuickRep1.Print;
except
ShowMessage('Erro na criação do formulário !!');
exit;
END;
frel_form1.Tag:= 0;
frel_form1:= nil;
FreeAndNil(frel_form1);
frel_form1.Free;
Daniel Antonio

Daniel Antonio

Responder

Posts

31/08/2020

Roberto Castelani

boa noite amigo !
Estou sem tempo para explicar a você mais achei um video que possa te ajuda

http://delphiparainiciantes.com.br/como-criar-e-destruir-formularios-no-delphi/


Abraço
Boa Sorte!!!!
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar