Und das mit der MessageBox? Also was ich meine ist, dass du einen Wert in einer MB ausgibst, anstatt ihn nur der List hinzuzufügen:
Delphi-Quellcode:
for i := 0 to Spalten-1 do //Alle möglichen Spalten durchgehen
begin
if CheckListBox1.Checked[i] then //Soll die gewählte Spalte angezeigt werden?
begin
MessageBox(SQL_Names[i]+': '+qrMain.FieldByName(SQL_Names[i]).AsString);
Dann müsste er dir jedes Element ausgeben, vorausgesetzt er kann es ordnungsgemäß von der Datenbank einlesen.