[Delphi] [SQL] Fehlermeldung SQL-Abfrage (EDBEngineError)

[Loki77]

Hallo!
Möchte dem Anwender die möglichkeit geben, nur bestimmte Felder einer Tabelle
anzeigen zu lassen.
Auswahl erfolgt über ListBox, schreibe mit der Selection(+Multi) dann die
SQL-Abfrage.
Bekomme aber dann immer eine Fehlermeldung wenn ich den 2. oder 3. ... Eintrag EINZELN
anwähle.
1.Eintrag ->single select geht, multi-select oder alle auch.
WARUM??? :gruebel:

Delphi-Quellcode:

procedure TfrmMain.btnSelectClick(Sender: TObject);
var
Content : string;
i : integer;
ContentLength : integer;
begin
  if lbFields.ItemIndex <> -1 then
  begin
  Content := '';
  for i := 0 to lbFields.SelCount -1 do
    begin
      if lbFields.Selected[i] = true then
      Content := Content + lbFields.Items[i] + ', ';
  end;
    ContentLength := Length(Content);
    Delete(Content, ContentLength -1, 2);
    qryMain.Close;
    dbgrd2.Refresh;
    srcmain2.DataSet := nil;
    qryMain.SQL.Clear;
    qryMain.SQL.Add('Select ' + Content + ' From ' +
                     ExtractFileName(opndlgOpen.FileName));
    qrymain.ExecSQL;
    srcmain2.DataSet := qryMain;
    qryMain.Open;
  end
  else
    begin
      Application.MessageBox('Kein Feld ausgewählt. ', 'Fehler', MB_OK or
                              MB_ICONEXCLAMATION);
    end;
end;

Vielen Dank, Philipp

[mkinzler]

Lass dir mal qryMain.SQL.Text anzeigen

[Loki77]

Ups,
qryMain.SQL.Text sagt: Hallo, ich bin leer....

Haltepunkt vor qryMain.ExecSQL -> Content = ''

Weiss aber immer noch nicht warum....

[mkinzler]

Wieviel Felder sind den markiert. U.U wird die Schelife bei nur einem markierten Feld nicht durchlaufen, weil

Delphi-Quellcode:

for i := 0 to 0

steht.

[Loki77]

OK, hab´den Fehler!!!
Nicht

Delphi-Quellcode:

for i := 0 to lbFields.SelCount -1 do

sonder

Delphi-Quellcode:

for i := 0 to lbFields.Count -1 do

:wall:

Arggghhhh.....
Danke trozdem, mkinzler....
Tschö, Loki.