Programa não fecha

Delphi

05/09/2003

Olá Pessoal,

no código abaixo, gostaria que na linha indicada, meu programa fosse fechado, porém da forma como está isto não está acontecendo. Alguém poderia me ajudar?


Procedure TForm1.limite;
begin
AssignFile(control, ´c:\control.log´);
if not FileExists(´c:\control.log´) then CriaControle;
Form1.Memo1.Lines.loadfromfile(´c:\control.log´);
Form1.Edit1.Text:=Form1.Memo1.Text;
Form1.Edit2.Text:=IntToStr(StrToInt(Form1.Edit1.Text)+1);
FindReplace(Form1.Edit1.Text,Form1.Edit2.Text, Form1.Memo1);
if StrToInt(Form1.Memo1.Text) > 5 then
begin
removereg;
DeleteFile (´c:\log.log´);
if not Visible then Form1.Show;
Form1.Close; -------------------> Aqui gostaria que o programa fosse fechado
end
else
begin
DeleteFile (´c:\control.log´);
try
AssignFile(control,´c:\control.log´);
Rewrite(control,´c:\control.log´);
Append(control);
Write(control, Memo1.Text);
finally
CloseFile(Control);
end;
Memo1.Clear;
end
end;


Odirlei

Odirlei

Curtidas 0

Respostas

Silviogs

Silviogs

05/09/2003

Olá

tente esta estrutura ok..

Procedure TForm1.limite;
begin
AssignFile(control, ´c:\control.log´);
if not FileExists(´c:\control.log´) then
CriaControle;
else begin
Form1.Memo1.Lines.loadfromfile(´c:\control.log´);
Form1.Edit1.Text:=Form1.Memo1.Text;
Form1.Edit2.Text:=IntToStr(StrToInt(Form1.Edit1.Text)+1);
FindReplace(Form1.Edit1.Text,Form1.Edit2.Text, Form1.Memo1);
if StrToInt(Form1.Memo1.Text) > 5 then begin
removereg;
DeleteFile (´c:\log.log´);
if not Visible then
Form1.Show;
else
Application.Terminate // tente esta estrutura...
//Form1.Close; --> Aqui gostaria que o programa fosse fechado
end
else begin
DeleteFile (´c:\control.log´);
try
AssignFile(control,´c:\control.log´);
Rewrite(control,´c:\control.log´);
Append(control);
Write(control, Memo1.Text);
finally
CloseFile(Control);
end;
Memo1.Clear;
end ;
end;



Atenciosamente


Silvio Guedes.


GOSTEI 0
POSTAR