Unerklärliche Zugriffsverletzung mit Paradox7/TQuery

[Die Muhkuh]

Hi,

ich hab eine DLL mit VCL. Dort hab ich folgenden Code:

Delphi-Quellcode:

Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT Mitgliederv4.* FROM Mitgliederv4');
  Query1.Open;
  Query1.First;

Bei Query1.Close kommt eine Zugriffsverletzung. Kommentiere ich es weg dann kommts in der nächsten Zeile und immer so weiter. Was bitte schön soll ich da machen?

[mirage228]

Hi,

ist Query1 vielleicht = nil ?

Du könntest eventuell mal mit Debug-DCUs kompilieren (Project -> Optionen -> Compiler) und dich dann durch den Source der VCL hangeln ;)

mfG
mirage228

[Die Muhkuh]

Und was machen diese DCU's?

[mirage228]

Zitat:

Zitat von Spider

Und was machen diese DCU's?

Dann kannst du mit F7 auch in die Sourcen der VCL rein und schauen, ob dort vllt. was schief läuft.

mfG
mirage228

[Die Muhkuh]

SAgte ich doch schon...

Bei der Zeile Query1.Close und wenn ich die ausklammer dann bei der nächsten.

[Die Muhkuh]

Hi,

ich glaub ich was an was es liegt. Wenn ich die Prozedur in der Unit auf Rufe wo das steht dann gehts. Rufe ich aber die Procedure aus einer anderen Unit auf, dann bekomm ich eine AV.

[r_kerber]

Das klingt ganz nach einem nicht ausgeführten Create für Query1!

[Die Muhkuh]

Hi r_kerber,


das dachte ich auch schon, aber wenn ich schreib:

Delphi-Quellcode:

Query1 := TQuery.Create(Application);

DAnn kommt halt in dieser Zeile eine AV.

Liegt es vielleicht daran das ich diese procedure aus einer anderen Unit aufrufe?

[Die Muhkuh]

Ok,

ich hab den Fehler gefunden.

Meine Formulare erstellte ich so:

Delphi-Quellcode:

procedure TForm1.Druckereinstellungen1Click(Sender: TObject);
begin
  with TForm2.Create(Application) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

Statt Application musste ich aber Form1 schreiben