also ich kann jetzt problemlos listen ein und auslesen.
Jetzt habe ich einen Teil Code erstellt und ich bekomme immer den Fehler
Zitat:
Im Projekt xyz ist eine
Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffverletzung bei Adresse 0041E362 in Modul 'xyz'. Lesen von Adresse 00000005'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
Der Fehler tritt auf, sobald folgender Quelltext ausgeführt wird:
Code:
var test1, test2, test3, test4, komplett : tstringlist;
procedure TForm2.listeClick(Sender: TObject);
var i: integer;
begin
table1.RecNo:=liste.ItemIndex+1;
if table1.FieldValues['test1']<>'' then
begin
test1.CommaText:=table1.FieldValues['test1'];
test2.CommaText:=table1.FieldValues['test2'];
test3.CommaText:=table1.FieldValues['test3'];
test4.CommaText:=table1.FieldValues['test4'];
komplett.Clear;
for i:=1 to test1.count do
begin
komplett.Add(test1.Strings[i]+' - '+test2.Strings[i]+' '+test3.Strings[i]+' - '+test4.Strings[i]);
end;
liste2.items:=komplett;
end;
end;
Hintergrundinfo dazu:
Der Anwender klickt in einer Listbox auf einen Eintrag. Mit dem Klick wird die Spalte in der
DB bestimmt. Dann lädt er Daten zu dem Eintrag in eine Listbox.
Falls dort oben jemand durchsteigt, sage ich schon einmal: DANKE!
