Zugriffsverletzung an Adresse....

[Rolf Rostig]

Hallo,
nach Starten des Programms bekomme ich den Fehler:

Zugriffsverletzung an Adresse....

und schuld ist diese Zeile TListbox(FindComponent('Listbox' + IntToStr(y))).Items.Add (FieldbyName('ID').asString);

im Zusammenhang mit der with-Anweisung in diesem Code:

Delphi-Quellcode:

  with DM.IBSQLimKonti do
    begin
      close;

      Params[0].AsInteger := 1;
      Params[1].AsString := Edit1.Text;  //Achtung Reihenfolge der
      Params[2].AsString := Edit2.Text;  //Daten beachten

      Prepare;
      ExecQuery;
      [b]ListBox6.Items.clear;[/b]
      while not Eof do 
      begin       
       TListbox(FindComponent('Listbox' + IntToStr(y))).Items.Add (FieldbyName('ID').asString);
       
       next;
      end;
  end;

Warum ist das so, kann ich das schlau ändern?

[Tpercon]

Die ListBox mit diesem Namen existiert auch wirklich und y ist auch korrekt gesetzt?
Wie lautet die komplette Fehlermeldung?

[Rolf Rostig]

wenn ich es so schreibe, gibt es keinen Fehler

Delphi-Quellcode:

      DM.IBSQLimKonti.close;
      DM.IBSQLimKonti.Params[0].AsInteger := 1;
      DM.IBSQLimKonti.Params[1].AsString := Edit1.Text;  
      DM.IBSQLimKonti.Params[2].AsString := Edit2.Text;  
      DM.IBSQLimKonti.Prepare;
      DM.IBSQLimKonti.ExecQuery;
      ListBox6.Items.clear;
      while not DM.IBSQLimKonti.Eof do begin
       TListbox(FindComponent('Listbox' + IntToStr(y))).Items.Add (DM.IBSQLimKonti.FieldbyName('ID').asString);
       DM.IBSQLimKonti.next;
      end;

[kiar]

hallo rolf,

wenn du das next weglässt, was passiert dann?

[Rolf Rostig]

Hallo kiar,

genau das Gleiche. Das hat irgendwas mit with zu tun.

[Meflin]

Zitat:

with DM.IBSQLimKonti do

das heist die komponente wird da gesucht
versuchs mal mit

Delphi-Quellcode:

with form1 do begin
FindComponent...
end;

*MFG*