Also ich habs jetzt mal so umgebaut:
Delphi-Quellcode:
UniQuery1.Open;
UniQuery1.SQL.Clear;
UniQuery1.SQL.Add('SELECT ABPfad FROM tblArchivierbar '
+'GROUP BY PRNr HAVING ABArchivierbar = 1;');
for i := 0 to RowsInDB do
begin
HelpList.Add(UniQuery1.Fields[0].Value);
UniQuery1.Next;
end;
Funktioniert aber leider immer noch nicht... An der Stelle an der ich in die Stringlist schreiben möchte bekomme ich eine Fehlermeldung: Listenindex überschreitet das Maximum.
RowsInDB ist einfach nur die Anzahl der Zeilen in der Datenbank, die ich mir vorher über ein Select auslese, dort steht dann auch die Zahl der Zeilen drin, hab ich durchs Debugen nachgeprüft.
Wo kann mein Fehler liegen?
Gruß
AnyKey