Die Variable SpalteNeuerArtikel wird in der Procedure BestellungneuerartikelS1 beschrieben und soll nach dem Schließen der Form NeuerArtikel die 10 Spalten unterscheiden so das die Variablen ID1 - ID10 nur von den Spalten beschrieben werden.
Mit der ID1..10 wird die Artikel_ID aus der Datenbank für jede Spalte zwischen gespeichert.
Das eigentliche Problem scheint die Variabel SpalteNeuerArtikel zusein.
diese wird Hier beschrieben
Delphi-Quellcode:
procedure TBestellung.BestellungneuerartikelS1;
begin
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;
end;
Der Fehler
Im Projekt VerwaltungV1.exe ist eine
Exception der Klasse $C0000005 mit der Meldung '
access violation at 0x007dc39a: read of address 0x000006e4' aufgetreten.
wird in der Procedure BestellungNeuerArtikelLaden ausgelöst.
Delphi-Quellcode:
// nach dem schliessen des Frames NeuerArtikel wird die ID neu ermittel
procedure TBestellung.BestellungNeuerArtikelLaden;
begin
if SpalteNeuerArtikel = 1 then // Hier wird der Fehler Ausgelöst
begin
ID1 := Artikelpruefung(eBezeichnung1.Text,eEinzelPreis1.Text,eArtikelnummer1.Text,eLieferant1.Text);
end;
end;