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 - что это у тебя?

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

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

procedure TForm1.N5Click(Sender: TObject);

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