Форум: "Начинающим";
Текущий архив: 2006.10.01;
Скачать: [xml.tar.bz2];

Вниз

Incompatible types: TBasicAction and TCloseAction    Найти похожие ветки 

← →
drashka ©   (2006-09-08 16:20) [0]

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

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"
на втором ЭНДЕ с низу... бьюсь не могу понять где накосячил, раньше все работало..

---

← →
Loginov Dmitry ©   (2006-09-08 16:35) [1]

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

---

← →
Desdechado ©   (2006-09-08 16:35) [2]

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

---

← →
drashka ©   (2006-09-08 16:46) [3]

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

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

procedure TForm1.N5Click(Sender: TObject);

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.10.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.014 c