Exception bei Programmende

[H.Bothur]

Zitat von KodeZwerg:

Freimatz schrieb CallStack

Sorry - aber wie gebe ich das aus ??

Zitat:

oder andere wollten "Was macht [Verarbeitung]" wissen

Da wird einfach eine CSV-Datei eigelesen, umformatiert und drei andere CSVs wieder ausgegeben:

Delphi-Quellcode:

procedure TMainForm.Verarbeitung;
var
  timeDate : TDateTime;
  ArbeitsDatei: String;
begin
  GrundeinstellungenLaden;
  AusgabeForm.InitSG;
  AktDatum := DateTimeToStr(Now);
  AktDatum := Copy(AktDatum, 7, 4) +Copy(AktDatum, 4, 2) +Copy(AktDatum, 1, 2);
  Arbeitsdatei := DatenVerzeichnis +EinleseDatei;
  if ParamStr(1) <> '' then Arbeitsdatei := ParamStr(1);
  if FileExist(Arbeitsdatei) then
  begin
    DatenLaden(ArbeitsDatei);
    MainForm.DateiNameLbE.Text := EinleseDatei;
    FileAge(DatenVerzeichnis +EinleseDatei, timeDate);
    MainForm.DateiDatumLbE.Text := DateTimeToStr(timeDate);
    MainForm.ZeilenZahlLbE.Text := FloatToStr(EinleseListe.Count);
    MainForm.Refresh;
    DatenVerarbeiten;
    AusgabeListeSchreiben;
    MailAnhang.Add(Arbeitsdatei);
    if not AllesSchreiben then Mailen.SendeMail(MailEmpfaenger, '', 'AXRO-Preisliste ' +DateToStr(date), MailAnhang);
    if (KopieSenden and not AllesSchreiben) then
    begin
      MailEmpfaenger := KopieEmpfaenger;
      Mailen.SendeMail(MailEmpfaenger, '', 'AXRO-Preisliste ' +DateToStr(date), MailAnhang);
    end;
    DatenSchreiben(Arbeitsdatei);
    AusgabeForm.SchreibePreispflegeDatei;
    AusgabeListeLoeschen;
    AusgabeForm.ShowModal;
    GrundeinstellungenSchreiben;
  end else ShowMessagePos('Preisdatei fehlt - Programm wird beendet !', 200, 200);
  Application.Terminate;
end;

Zitat:

KodeZwerg gab eine dpr & Formular Anpassung. Gibt's Fortschritte?

Noch nicht - da muss ich mehr dran machen weil so die zweite Form noch gar nicht zur Verfügung steht.

Zitat von hoika:

Liegt das Programm zufällig auf einem Netzlaufwerk?

Ja - Laufwerk i:\

Zitat:

2. Setze in der DPR auf das end. einen Breakpoint und drücke dann F7.

Die Exception kommt wirklich erst wenn das end. aus der .dpr erreicht wird.

Zitat:

3. Arbeitest Du mit interfaces?

Nein

Ich hoffe das hilft irgendwie weiter

Gruß
Hans