Как задать переменную?

[Yurk@]

так что-ли

var
  c : TComponent;
begin
  c := DataModule5.FindComponent('DataSource'+IntToStr(i));
  if c <> nil then
    Frame61.DBGrid1.DataSource := c
  else
    ShowMessage('Такой компонент не найден');

[SW00001]

Нет это тоже не пойдёт...мне нужно чтобы просто он читал переменную I и какое ей присвоено значение...а патом уже во фрейме вызывал DBGrid с этими данными
В общем вот программа может кто то найдёт где ошибка и почему переменную он не читает.
Специальность - 1 курс - 1-2 группы(кнопка №1-2) В них прописаны переменные, и сам фрейм(Frame61) с DBGrid1

[evg_m]

а кто будет ?
1. открывать БД (устанавливать соединение )
ADOconnection1.Open;
2. после открытия БД открывать НД (таблицы)
BookTable1.Open;

P.S. Да еще желательно не все сразу а только нужные!

[SW00001]

Сообщение от evg_m

а кто будет ?
1. открывать БД (устанавливать соединение )
ADOconnection1.Open;
2. после открытия БД открывать НД (таблицы)
BookTable1.Open;

P.S. Да еще желательно не все сразу а только нужные!

Соединения там установлены, они в DataModule5 находятся.
Там всё работает если без переменных сразу всё в кнопку вписать(всё открывает) но мне нужны через переменные т.к. там патом через форму вводить данные нужно в таблицу...а это я уже в кнопке не пропишу.

Например вот так вот работает всё прекрасно.

procedure TForm1.Frame32Button2Click(Sender: TObject);
var
i:integer;
begin
Frame32.Button1.Show;
Frame61.Visible:=True;
Frame32.Button2.Hide;
Frame61.DBGrid1.DataSource:=DataModule5.DataSource1;
end;

procedure TForm1.Frame32Button4Click(Sender: TObject);
var
i:integer;
begin
Frame32.Button3.Show;
Frame61.Visible:=True;
Frame32.Button4.Hide;
Frame61.DBGrid1.DataSource:=DataModule5.DataSource2;
end;

Таблицы открываются какие нужно.


Но мне нужно через переменные вот так

procedure TForm1.Frame32Button2Click(Sender: TObject);
begin
Frame32.Button1.Show;
Frame61.Visible:=True;
Frame32.Button2.Hide;
i:=1;
end;

procedure TForm1.Frame32Button4Click(Sender: TObject);
begin
Frame32.Button3.Show;
Frame61.Visible:=True;
Frame32.Button4.Hide;
i:=2;
end;

Чтобы фрейм в зависимости на какую кнопку нажали открывал ту таблицу которая нужна

procedure TForm1.Frame61Click(Sender: TObject);
begin
if i=1 then
  Frame61.DBGrid1.DataSource:=DataModule5.DataSource1;
if i=2 then
  Frame61.DBGrid1.DataSource:=DataModule5.DataSource2;
end;

[Yurk@]

ну так я тебе что в пост №11 написал ?!?

[SW00001]

Сообщение от Yurk@

ну так я тебе что в пост №11 написал ?!?

Мне нужно то что у меня в коде...Просто там почемуто переменную невоспринимает. Так там всё правельно

[evg_m]

procedure TForm1.Frame61Click(Sender: TObject);
begin
  ShowMessage('Click Frame6');

  if not DataModule5.DataSource1.Actve then showmessage('ЗАКРЫТО');
if i=1 then
  Frame61.DBGrid1.DataSource:=DataModule5.DataSource1;
if i=2 then
  Frame61.DBGrid1.DataSource:=DataModule5.DataSource2;
end;

Добавь выделенное и ...
1. если нет никакой реакции стало быть не попадаешь по ПУСТОМУ месту той самой Frame ?
не по Dbgrid, не по другим компонентам а именно по самой Frame не закрытой в этом месте ничем другим.
2. если clickFrame и есть еще что-то , то ...