Цитата:
|
...Написала процедуры, по-моему все верно...
|
Код:
procedure TForm1.Button7Click(Sender: TObject);
var
a, b: string;
begin
Edit12.Text:= a; // Вот здесь надо наоборот, a:= Edit12.Text;
Edit13.Text:= b; // и тут b:= Edit13.Text;
Si.GetData(a, b);
SiL.ViewList2(StringGrid3);
end;
или сразу
Код:
Si.GetData(Edit12.Text, Edit13.Text);
и ещё, не пойму, а где в
FormCreate примерно такая строчка
Код:
Si:= TSpecialnosti.Create(0, '');
наверное, ошибка из-за этого.