Здравствуйте
DataModule -dm
TADODataset -set
TADODconnection -con
Listbox-box
Пробую технологи ADO для Excel
В процедуре Box2 при выборе нескольких элементов они должны выводиться в memo и в StringGrid одновременно.
Выводятся сразу все или ничего помогите написать условие Box2.Selected[i], которое возвращает true, если на текущий момент i-тая опция выделена для вывода толька выбранных элементов в memo и в StringGrid который не изменяет размеры ColCount и RowCount и вообще ничего не выводит.Делал условие if Box2.Selected[i] = true then но ин выводит только первый нажатый элемент независимо выбрано несколько элементов или просто переход по элементам
Рабочий код с момента вывода в Memo всего независимо от выбора элемента.
Pascal Code:
procedure TForm1.Box1Click(Sender: TObject); var i: Integer; s: string; begin with dm do begin set1.Close; set1.CommandText:='SELECT * FROM ['+Box1.Items[Box1.ItemIndex]+']'; set1.Open; box2.Items:=set1.FieldList; for i:=0 to dg.FieldCount-1 do dg.Columns[i].Width:=59; memo1.Clear; set1.First; end; end; procedure TForm1.Box2Click(Sender: TObject); var i: Integer; s: string; begin with dm do begin while not set1.Eof do begin s:=''; for i:=0 to set1.FieldCount-1 do s:=s+set1.Fields.Fields[i].AsString+chr(9); memo1.Lines.Add(s); set1.Next; end; end; end;