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.
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