Auf die Query einer anderen form zugreifen.

[plautzer]

Moin,

ich habe ein kleines problemchen mit dem zugriff auf eine query in einer anderen form.
Und zwar will ich all meine tabellen/queries/datasources auf einer extra form, der übersicht halber, haben. Das habe ich auch alles gemacht jedoch kommt bei ausführen immer die selber fehlermeldung: " Zugriffsverletzung auf die .EXE .... "

Und alles an code was ich habe ist das:

Delphi-Quellcode:

 
implementation
uses data;

var Q_gr,Q_ug,Q_an:tquery;
{$R *.dfm}

procedure tfmain.definition;
begin
Q_gr:=fdata.Q_Gruppe;
Q_ug:=fdata.Q_Untergruppe;
Q_an:=fdata.Q_Anleger;
end;

procedure TFmain.FormCreate(Sender: TObject);
var i:integer;
begin
definition;
for i:= 0 to Q_gr.RecordCount-1 Do
Begin
  Lb_gr.Items.Add(Q_gr.Fields[0].Asstring);
  Q_gr.Next;
end;
end;

Ich verstehe einfach nicht warum das nicht gehen soll.

Plautzer

[Sharky]

Zitat von plautzer:

..auf einer extra form, der übersicht halber, ...

Hai plautzer,

dafür solltest Du keine TForm nehmen sondern das dafür vorgesehene TDataModule.

[Bernhard Geyer]

Da Du deine Aktion im FormCreate-Event machst, ist die Frage erlaubt, ob das Datenmodul fdata schon überhaupt erzeugt wurde? Vermutlich hast du es auch auf automatische Erstellung gestellt, aber es wird erst nach deinem Hauptformular TFmain erzeugt.

Nimm es aus der Liste der automatisch erzeugten Formulare raus und erzeug es selbst:

Delphi-Quellcode:

procedure tfmain.definition;
begin
  Application.CreateForm(Tfdata, fdata);
  Q_gr:=fdata.Q_Gruppe;
  Q_ug:=fdata.Q_Untergruppe;
  Q_an:=fdata.Q_Anleger;
end;

[plautzer]

Ich danke euch beiden frü die schneller und gute antwort.

-> Das Ganze funzt jetzt einwandfrei.




Plautzer