[Error]

Здравствуйте, подскажите, пожалуйста, как можно реализовать вставку содержимого из базы данных в StringGrid?
Вот код:

Код:

begin
repeat
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Text:='Select c1, c2, name From Data';
AdoQuery1.Open;
sg1.Cells[AdoQuery1.Fields[0].AsInteger,AdoQuery1.Fields[1].AsInteger]:=AdoQuery1.Fields[2].AsString;
until AdoQuery1.Eof;
end;

Одно значение выводит без проблем, то есть первую и вторую координаты и присваивает ячейке имя, а вот если сделать цикл, то виснет.

[Страдалецъ]

Как бы это мягче сказать.. Окрошка в общем.
Таr попробуйте:

Код:

AdoQuery1.Close;
AdoQuery1.SQL.Text:='Select c1, c2, name From Data';
AdoQuery1.Open;

while not AdoQuery1.Eof
do begin
sg1.Cells[AdoQuery1.Fields[0].AsInteger,AdoQuery1.Fields[1].AsInteger] := AdoQuery1.Fields[2].AsString;
Query1.Next;
end;

[Error]

Спасибо! Я когда таким образом пробовал, то про Query.Next забыл.