Was mir gerade aufgefallen ist:
Delphi-Quellcode:
procedure TEingabe.ExportierenClick(Sender: TObject);
begin
// Speichern-Dialog bei Anklicken des Buttons ausführen
if SaveDialog.Execute
then
Ausgabetabelle();
// procedure aus Unit Access
// Tabelle importieren (doppelte Angaben kopieren und einfügen)
// procedure aus Unit Access
DatenImportieren();
// Daten berechnen und exportieren
// procedure aus Unit Access
Exportieren();
end;
Bist du dir sicher, dass es nicht
Delphi-Quellcode:
procedure TEingabe.ExportierenClick(Sender: TObject);
begin
// Speichern-Dialog bei Anklicken des Buttons ausführen
if SaveDialog.Execute
then begin
Ausgabetabelle();
// procedure aus Unit Access
// Tabelle importieren (doppelte Angaben kopieren und einfügen)
// procedure aus Unit Access
DatenImportieren();
// Daten berechnen und exportieren
// procedure aus Unit Access
Exportieren();
end;
end;
lauten sollte?
Wenn du den Speichern-Dialog abbrichst, wird bei deiner Version trotzdem DatenImportieren() und Exportieren() ausgeführt.