Базы данных и знаний. Проектирование баз данных по технологии "клиент-сервер" и разработка клиентских приложений. Токмаков Г.П. - 107 стр.

UptoLike

Составители:

Рубрика:

Рис. 67. Структура абстрактного класса TStrings, предназначенного для хранения

списков строк

function Add(cons S:string): Integer;

function AddObject(cons S:string; Aobject: TObject): Integer;

Функция Add добавляет в список строку, устанавливая ссылку на объект,

равной nil, а функция AddObject добавляет и строку, и ссылку на объект.

В списке TlistBox пользователь обычно выбирает какую-нибудь строку,

номер которой определяется по свойству Itemindex.

Вс е эти свойства и методы используются в функции LoadList, текс т кото-

рой приведен ниже:

function TflGroups.LoadList;

begin

try

result:=true;

ListBoxl.Items.Clear;

CloseDataSet;

Queryl.SQL.Clear;

Queryl.SQL.Add('select kod_group, name_group');

Queryl.SQL.Add('from GROUPS');

Queryl.SQL.Add('order by name_group');

Queryl.Open;

while not Queryl.EOF

do begin

ListBoxl.Iterns.AddObject(Queryl.Fields[1].AsString,

TObject(Queryl.Fields[0].Aslnteger));

Queryl.Next;

end;

btnProp.Enabled:=false;

btnDelete.Enabled:=false;

- 107-