Nach dem Schließen eine Form Procdure einer anderen Form ausführen

[haentschman]

Zitat:

Per se ist dieser Co. nicht probleematisch.

...so meinte ich das nicht. Imho fehlen die Grundlagen über Variablen, Instanz, Owner, Parent etc. Das kann man nur am Projekt erklären.

[MCOP2001DE]

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;

[MCOP2001DE]

Hallo himitsu

zu deine Anmerkung

Zitat:

Kommt drauf an "wann" FNeuerArtikeloeffnen aufgerufen wird.

TNeuerArtikel hängt an TMain(Self) und wird dieses TMain geschlossen, dann nimmt es dieses TNeuerArtikel mit über den Jordan.

die Form Main wird nur beim schliessen des gesamten Programms geschlossen die Form ist die MDI Form alle anderen Formen sind MDIChild.

[SneakyBagels]

Es gibt mittlerweile soviel Arbeitsspeicher... wieso gibt man überhaupt noch Forms frei? Ich gehe einfach mal davon aus, dass es sich hierbei um ein Kleinstprojekt handelt wo das eh vollkommen überflüssig ist Forms freizugeben. Ob diese Kleinstanwendung jetzt 2 MB oder 5 MB belegt ist doch egal.

[haentschman]

Hallöle...

Die Preisfrage ist, wo SpalteNeuerArtikel deklariert ist.
...deshalb solltest du das Projekt anhängen. Ansonsten raten wir in 20 Seiten immer noch weiter.

PS:

Zitat:

die Form ist die MDI Form alle anderen Formen sind MDIChild.

Meine Meinung: Wenn des möglich sein sollte, lasse die MDI Fenster weg. MDI ist imho nicht mehr zeitgemäß.

[MCOP2001DE]

Hallo Haentschman

die Variable wird im private Bereich der Unit frmBestellung deklariert
Im Anhang das bisherige Projekt

gibt es denn eine andere Möglichkeit die Formen innerhalb einer Hauptform dazustellen?

[Aviator]

Zitat von SneakyBagels:

Es gibt mittlerweile soviel Arbeitsspeicher... wieso gibt man überhaupt noch Forms frei? Ich gehe einfach mal davon aus, dass es sich hierbei um ein Kleinstprojekt handelt wo das eh vollkommen überflüssig ist Forms freizugeben. Ob diese Kleinstanwendung jetzt 2 MB oder 5 MB belegt ist doch egal.

Also diese Denkweise finde ich mehr als fragwürdig.

Natürlich gibt man Instanzen (egal welcher Art) immer wieder frei wenn man sie nicht benötigt. Außerdem hat man es sich bei der Freigabe der Form gespart, dass man zuvor geänderte Felder (Edit, ComboBox, ...) wieder auf einen Standardwert zurücksetzen muss, usw.

Also Objekte sollte man immer freigeben.

[SneakyBagels]

Zitat:

Natürlich gibt man Instanzen (egal welcher Art) immer wieder frei wenn man sie nicht benötigt. Außerdem hat man es sich bei der Freigabe der Form gespart, dass man zuvor geänderte Felder (Edit, ComboBox, ...) wieder auf einen Standardwert zurücksetzen muss, usw.

Nur wenn man davon keine Ahnung hat dann sollte man das nutzen was Delphi einem anbietet:
Forms automatisch erzeugen und automatisch freigeben und nicht selber daran rumwerkeln.

[Aviator]

Zitat von SneakyBagels:

Zitat:

Natürlich gibt man Instanzen (egal welcher Art) immer wieder frei wenn man sie nicht benötigt. Außerdem hat man es sich bei der Freigabe der Form gespart, dass man zuvor geänderte Felder (Edit, ComboBox, ...) wieder auf einen Standardwert zurücksetzen muss, usw.

Nur wenn man davon keine Ahnung hat dann sollte man das nutzen was Delphi einem anbietet:
Forms automatisch erzeugen und automatisch freigeben und nicht selber daran rumwerkeln.

Warum wirst du eigentlich bei jedem der nicht deiner Meinung ist immer direkt aggressiv und greifst die Leute (verbal) an. Wo ist dein Problem. Jede Methode hat Vor- und Nachteile. Und das ist kein Grund direkt pampig zu werden.

Du gehörst für mich schon seit deiner letzten Aktion zu denjenigen, mit denen man besser keine Diskussion anfängt. Da gibt es so einige Spezialisten hier im Forum. Es bringt ja eh nichts. Auch hier wieder genau das gleiche Verhalten. Und diese Meinung hat sich gerade wieder verstärkt.

[haentschman]

Vorschlag:

Ich hatte nicht ein großes Projekt erwartet.

Delphi-Quellcode:

procedure TMain.FNeuerArtikeloeffnen;
begin
   TNeuerArtikel.Create(Self); // hier z.B.
end;

Du hast ein Chaos in den Instanzen. Du erzeugst ständig neue Forms und gibst sie nur über Main(Owner = Self) Close frei. Auch wenn ich auch für die dynamischen Forms bin,
hier würde ich das nicht empfehlen.

1. Alle Forms automatisch erzeugen lassen mit Hide oder Visible := False = nicht sichtbar.
2. Statt xxx.Create(Self) nur xxx.Show des entsprechenden Forms ausführen.
3. Danach wieder die Form ausblenden mit Hide oder Visible := False.

...dann schaun wir mal weiter.

PS: Ich gehe jetzt ein ECHTES trinken. Auf meinen Ehrentag... Ich schaue dann mal später wieder rein.