Delphi - вывод всех данных с таблицы

[ridek]

Всем привет.
Возникла такая проблема, что нужно вывести все данные которые находятся в таблице users в компонент Label, да так чтобы компонент Label создавался автоматически столько раз сколько записей в таблице.

[Stilet]

В чем проблема? Кинь на форму ScrollBox. и:

with Table do begin
 First;
 while not eof do begin
  l:=TLabel.Create(ScrollBox);
  l.Parent:=ScrollBox;
  l.Align:=alTop;
  l.Caption:=FieldByName('поле таблицы').AsString;
 end;
end;

Идея ясна?

[ridek]

Показывает только первую запись с десяти.

[Аватар]

И не зацикливает? Там в цикле Next потерян

[Stilet]

ridek

Ну а ты не думал, что копипастэ не помогает? Я писал с коленки, чтоб подать идею. Мог чего-то и упустить. Например проход на следующую запись.

[ridek]

Спасибо большое все прекрасно выводится. Это я когда код писал то опечатался.