Hallo alle...

wieder mal...

die verwendete Unit ist eine Kopie einer ähnlichen und ist entsprechend angepaßt:

-Unit Name
-Form Name
-Eingabefelder

Zugriffsverletzung bei folgender procedure:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFEinstellungen.LieferantEinlesen;
begin
  BitBtn20.Enabled:= True;
  ZQueryLieferant.SQL.Text:= 'select NAME from LIEFERANT order by NAME';
  ZQueryLieferant.Open;
  JvDBGrid7.Columns[0].Width:= 145;
  JvDBGrid7.Columns[0].Title.Caption:= 'Name';
  if not ZQueryLieferant.IsEmpty then
    begin
      BitBtn21.Enabled:= True;
      FBefeuchtungBearbeiten.ComboBoxLieferant.Items.Clear;
      FBSKBearbeiten.ComboBoxLieferant.Items.Clear; //<--- hier tritt die Zugriffsverletzung auf

      repeat
        FBefeuchtungBearbeiten.ComboBoxLieferant.Items.Add(ZQueryLieferant.FieldValues['NAME']);
        FBSKBearbeiten.ComboBoxLieferant.Items.Add(ZQueryLieferant.FieldValues['NAME']);

      until ZQueryLieferant.FindNext = False;
    end
      else BitBtn21.Enabled:= False;
end;

kommentiere ich die Zeilen mit 'FBSKBearbeiten.' heraus wird das Formular angezeigt und die ComboBox im Formular 'FBefeuchtungBearbeiten' gefüllt.

was ich schon gemacht habe:

- Unit aus dem Projekt entfernt - neu eingebunden
- Uses Anweisungen entfernt --> im Prinzip werden sie beim compilieren neu angelegt
- Namensänderung ComboBoxen

... die Programmierhilfe in Verbindung mit 'FBSKBearbeiten' funktioniert

hat jemand eine spontane Idee ?

Was für eine Zugriffsverletzung? Lesen/Schreiben von Adresse 0000...? Wenn ja, versuchst du auf ein nicht-existierendes Objekt zuzugreifen, wahrscheinlich die ComboBox.

...hast Recht mit Lesen von Adresse XXXX.

...wenn das Objekt (ComboBox) nicht existent wäre würde es ja auch nicht bei der Programmierhilfe aufgelistet werden oder ?

...ich schmeiß die ComboBoxen mal vom Formular und lege sie neu an... bis gleich.

[edit]
- runter compilieren - rauf - Namen eingestellt ---> Zugriffsverletzung an gleicher Stelle ( Lesen Adresse 00039C )
[/edit]

An "FBSKBearbeiten" oder "FBefeuchtungBearbeiten" wird wohl keine Instanz übergeben. Deswegen die ZV.

...ich hasse es, wenn ich nicht weiß an welcher Ecke ich suchen muß.

- bei auskommentierten Zeilen wird die Form mit den ComboBoxen angezeigt...leer. also sind sie als Objekte vorhanden.
- dcu's entfernt --> ohne Erfolg.
- raus aus Projekt -- rein ins Projekt --> ohne Erfolg.


... ich habe keine Idee mehr. Dinge die sonst immer funktionieren !

Wird FBSKBearbeiten automatisch oder dynamisch erzeugt?

... automatisch.

habe inzwischen die brutale Methode probiert:

- Unit aus dem Projekt entfernt.
- neues Formular erzeugt.
- Namen wie gehabt eingestellt.
- nur die Objekte drauf.
- Namen den Objekten zugeordnet.
---> Zugriffsverletzung an gleicher Stelle

mit FBefeuchtungBearbeiten funktioniert es... mit FBSKBearbeiten nicht.
beide Units unterscheiden sich nur in 2 EditFeldern.



was könnte ich noch probieren ?

Zeig doch mal die *.dpr

... vorallem zeig mal, wie du die Instanz von TFEinstellungen erstellst ... den ganzen Code davon. Also nicht den Constructor sondern der Teil wo FBefeuchtungBearbeiten und FBSKBearbeiten übergeben oder erzeugt werden.

... Danke für Euer Mitgefühl...

irgend ein Bit liegt bei dem ganzen Projekt quer.

... jetzt wirft er mit Zugriffsverletzungen aus Units, welche perfekt funktioniert und abgeschlossen waren.

...ich glaube bald nicht das das mit der FBSKBearbeiten zu tun hat sondern eher daß mein Delphi spinnt.

...trotzdem im Anhang die dpr.




...ich lasse das oben mal stehen. Während des Schreibens ...gingen alle Lampen an.

... als ich dpr geschrieben habe...

- in meinem Projekt steht im OnCreate der Datenbank Unit das Connect zur Datenbank und nach dem Connect werden diverse Daten eingelesen.
- da diese Daten auch Objekte ( wie diese ComboBox ) betreffen muß diese Unit immer in der dpr am Ende stehen damit alle Objekte erzeugt sind.
- ich weiß, daß ich jedesmal bei einer neuen Unit die Datenbank Unit ans Ende verschieben muß.

... diesmal vergessen... Ich glaube ich brauch mal eine Pause.

Danke für den Denkanstoß...