Einzelnen Beitrag anzeigen

venice2

Registriert seit: 5. Dez 2019
Ort: Köln
807 Beiträge
 
Delphi 2010 Architect
 
#28

AW: Programm stürzt nach mehren Stunden Laufzeit ab.

  Alt 22. Sep 2021, 16:57
Na ja die ganzen Form1 sind immer noch drin.. Warum?
Du befindest dich doch schon innerhalb der Classe Tform1
Lösche den Kram doch einfach.

das
ts.Add(Form1.Edit_Host.Text);
zu
ts.Add(Edit_Host.Text);
usw..
Überprüfe den gesamten Quelltext nochmal

Das tform1 zu TForm1 um eine einheitliche Schreibweise zu erhalten (aber nicht Lebenswichtig nur als Tip nebenbei)
Zumindest macht es den Quelltext lesbarer.

Delphi-Quellcode:
procedure tform1.savesettings;
var
ts: tstringlist;
begin
  ts := tstringlist.Create;
  try
        try
            ts.Add(Form1.Edit_Host.Text);
            ts.Add(Form1.Edit_User.Text);
            ts.Add(Form1.Edit_Password.Text);
            ts.Add(Form1.Edit_Port.Text);
            ts.Add(Form1.Edit_LS.Text);
            ts.Add(Form1.Edit_RE.Text);
            ts.Add(Form1.Edit_ET1.Text);
            ts.Add(Form1.Edit_ET2.Text);
            ts.Add(Form1.Edit_verbindungsDAUER.Text);
            ts.Add(form1.Edit_pause_pro_durchgang.Text);
            ts.Add(Form1.Edit_pause_wiederverbindung.Text);
            ts.Add(Form1.Edit_druck_pauseDEA.Text);
            ts.Add(Form1.Edit_rechnungen_max.Text);
            ts.Add(Form1.Edit_papierfach_max.Text);
            ts.Add('tray:off');
            ts.Add(IfThen(CheckBox_autostart.Checked, 'autostart:on','autostart:off'));
            ts.Add(IfThen(CheckBox_DebugLog.Checked, 'debug:on','debug:off'));
            ts.Add(IfThen(CheckBox_verstecke_cmd.Checked, 'hidecmd:on','hidecmd:off'));
            ts.Add(inttostr(papierfach));
            ts.Add(inttostr(rechnungsfach));
            ts.Add('');
            ts.SaveToFile(programmpfad + 'settings.txt');
        except
            on e: exception do form1.addline('Fehler beim speichern der Einstellungen: ' +e.Message);
        end;
    finally
        ts.free;
    end;
end;

Geändert von venice2 (22. Sep 2021 um 17:15 Uhr)
  Mit Zitat antworten Zitat