procedure TForm2.ListBox4Click(Sender: TObject);
var sDBItem1,sDBItem2,sDBItem3,sDBItem4,sDBItem5:string;
i,ia:integer;
begin
Memo1.Lines.Clear;
with ADOQuery1 do begin
SQL.Clear;
SQL.Add ('Select event_note,event_site,koeff_p1,koeff_n,koeff_p2 from bet');
Open;
First;
while not eof do
begin
sDBItem1 := String(FieldValues ['event_note']);
sDBItem2 := String(FieldValues ['event_site']);
sDBItem3 := String(FieldValues ['koeff_p1']);
sDBItem4 := String(FieldValues ['koeff_n']);
sDBItem5 := String(FieldValues ['koeff_p2']);
Memo1.lines.Add(sDBItem1);
Memo1.lines.Add(sDBItem2);
Memo1.lines.Add('Коэффициенты: '+ sDBItem3+' - '+sDBItem4+' - '+sDBItem5);
Next;
end;
end;
end;
В листбоксе несколько записей(строк) при нажатии на разные строки должна появляться разная информация в Мемо, которая берется из файла БД access, но сейчас выводится до конца файла всё, а мне надо чтобы выводились записи с номером как у листбокса, как сделать?
Спасибо