Dlaczego ListBox...SaveToFile() wstrzymuje zamknięcie programu?

MartinEagle

2012-10-14T14:00:12+02:00

Rejestracja: dni
Ostatnio: dni
Postów: 56

Witam,

Mając tak rozwiązaną procedurę FormClose

Kopiuj

var TNet: TIdTelnet;
    LBPass: TListBox;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  iF TNet.Connected then TNet.Disconnect;
  LBPass.Items.SaveToFile(ExtractFilePath(Application.ExeName)+ 'HASLA.TXT');
end;

zamknięcie programu zatrzymuje się i trzeba resetować program (ctrl+F2), aby móc go dalej pisać.

Wyrzucenie linii kodu z LBPass poza FormClose jak poniżej rozwiązuje utrudnienie.

Kopiuj

 
procedure save;
begin
  Form1.LBPass.Items.SaveToFile(ExtractFilePath(Application.ExeName)+ 'HASLA.TXT');
end;
{...}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  iF TNet.Connected then TNet.Disconnect;
  save;
end;

O co w tym chodzi? Może mi ktoś to wytłumaczyć?

2012-10-14T14:58:52+02:00

Rejestracja: dni
Ostatnio: dni

MartinEagle napisał(a):

O co w tym chodzi? Może mi ktoś to wytłumaczyć?

Chodzi o to że podałeś zbyt mało danych abyśmy mogli cokolwiek stwierdzić.
Polecam nauczyć się używać debuggera i podać więcej rzeczy z niego. Bez tego można tylko gdybać.

MartinEagle

2012-10-14T17:47:53+02:00

Rejestracja: dni
Ostatnio: dni
Postów: 56

OK. Dzięki za wędkę.

Opi

2012-10-17T00:47:48+02:00

Rejestracja: dni
Ostatnio: dni
Postów: 1034

Przenieś kod

Kopiuj

Form1.LBPass.Items.SaveToFile(ExtractFilePath(Application.ExeName)+ 'HASLA.TXT');

do OnDestroy Formy.

Liczba odpowiedzi na stronę

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.

Utwórz konto