| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Incompatible types: 'TBasicAction' and 'TCloseAction' [D7, XP]

drashka ©   (2006-09-08 16:20:00) 

Здравствуйте, ГОСПОДА, Вот такую вещь навоял...

var
Registry: Tregistry;
begin
Registry:=Tregistry.create;
with  registry do
 begin
    with TsqlConnection1 do
     begin
      OpenKey('\software',true);
      OpenKey('\TakirIb',true);
      OpenKey('\Adress',true);
      WriteString('Server_adress', params[1]);
      closekey;
     end;
   destroy;
   action:=caFree
 end
end;

при компяляции выдается ошибка
[Error] Unit1.pas(290): Incompatible types: 'TBasicAction' and 'TCloseAction'
на втором ЭНДЕ с низу... бьюсь не могу понять где накосячил, раньше все работало..

---

drashka   (2006-09-08 16:46:00) [1]

Все, спасибо.... раньше это было в обработчике OnClose... а теперь  в Клике.
Достаточно было просто убрать... :))

(procedure TfmNakls.FormClose(Sender: TObject;
var Action: TCloseAction)

procedure TForm1.N5Click(Sender: TObject);

---

Loginov Dmitry   (2006-09-08 16:35:00) [2]

а что здесь action? Приведи объявление процедуры.

---

Desdechado   (2006-09-08 16:35:00) [3]

и где ты ее наваял?
action - что это у тебя?

---

Наверх