Практическая работа. Вывести в компонент ListBox1 содержимое всех полей текущей записи (начиная с первого).

Вывести в компонент ListBox1 содержимое всех полей текущей записи (начиная с первого).

Расположите на форме компоненты в соответствии с рисунком:

Напишите обработчик события OnClick для кнопки:

procedure TForm1.Button1Click (Sender: TObject);

var n:integer;

Begin

for n:=0 to table1.FieldCount-1 do

ListBox1.Items.Add (table1.Fields [n].AsString);

end;

После этого запустите программу и щелкните по кнопке на форме. В ListBox вы увидите список содержимого полей текущей записи набора данных. Содержимое каждого поля интерпретируется как строковое значение и добавляется к списку ListBox.

Самостоятельно выполните следующие задания:

1. Вывести в компонент ListBox1 содержимое всех полей текущей записи (начиная с последнего).

2. Использую общую схему обработки всех записей НД, вывести в компонент ListBox1 содержимое всех записей из всех полей (начиная с последней записи).

Дата добавления: 2015-07-19