I want to get a list of supported languages ​​from a table

id lang 1 ru 2 en 3 gr for I := 1 to 8 do begin MyQuery1.SQL.Clear; MyQuery1.SQL.Add('SELECT * FROM languages WHERE id = "' + IntToStr(i) + '"'); MyQuery1.ExecSQL; iStrig := iStrig + '"' + MyQuery1.Fields[1] + '",'; end;

How do I do that would once refer to the database, and then, loop through?

    1 answer 1

     MyQuery1.SQL.Clear; MyQuery1.SQL.Add('SELECT * FROM languages'); MyQuery1.Open; while not MyQuery1.Eof do begin iStrig := iStrig + '"' + MyQuery1.FieldByName('lang').AsString + '",'; MyQuery1.Next; end;