Guten Morgen
Ich bin schon seit einigen Tagen auf der suche nach einer Methode wie ich beim schließen einer Form eine Procedure in einer anderen Form ausführen kann.
Hintergrund ist der es gibt eine Form Bestellung in der werden die Artikel eingetragen klickt man auf Speichern wird überprüft ob der Artikel in der
DB vorhanden ist sollte er nicht vorhanden sein öffnet sich einen zweite Form in der zusätzliche Informationen für den Artikel eingetragen werden und der Artikel in die
DB aufgenommen wird. Nun soll die Form wieder geschlossen werden und die Überprüfung erneut gestartet werden. Dieser Ablauf soll solange wiederholt werden bis alle 10 Eingabe spalten geprüft sind und dann die Daten in der
DB gespeichert werden.
Bei dem folgenden Code bekomme ich die Fehlermeldung "
Access Violation":
Schließen:
Delphi-Quellcode:
procedure TNeuerArtikel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := Cafree;
Bestellung.BestellungNeuerArtikelLaden;
end;
Form aufrufen:
Delphi-Quellcode:
if eBezeichnung1.Text <> '' then
begin
if ID1 = 0 then
begin
SpalteNeuerArtikel := 1;
Main.Artikelbezeichnung := eBezeichnung1.Text;
Main.Artikelnr := eArtikelnummer1.Text;
Main.Preis := eEinzelpreis1.Text;
Main.Lieferant := eLieferant1.Text;
Main.FNeuerArtikeloeffnen;
end;
end;
Delphi-Quellcode:
procedure TMain.FNeuerArtikeloeffnen;
begin
TNeuerArtikel.Create(Self);
end;
Wo liegt mein Denkfehler kann mir jemand Helfen?
Gruß Mcop2001de