procedure TF_ser_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if btnok.Click then
begin
datamod.TblForm.Edit;
end else btncancle.Click
datamod.TblForm.Insert;
end;
end;
*폼A는 데이타를 등록/수정/삭제 할 수 있는 폼입니당*
폼 A에서 seach버튼을 click하면, 작은 폼이 또 하나 열리거든여...
그런데 그 폼이 닫힐때... OK버튼을 눌러서 그 폼을 닫으면...
table를 edit모드로, Cancle버튼을 눌러서 닫으면, table를 insert모드로 만들고 싶거든여... 그런데... 에러가 생기는 거예여...!_!
[Error] F_ser_Form1.pas(43): Type of expression must be BOOLEAN
이라는 에러가...!!
어떻게 해야 하져?
> procedure TF_ser_Form.FormClose(Sender: TObject; var Action: TCloseAction);
> begin
> if btnok.Click then
> begin
> datamod.TblForm.Edit;
> end else btncancle.Click
> datamod.TblForm.Insert;
> end;
> end;
> *폼A는 데이타를 등록/수정/삭제 할 수 있는 폼입니당*
>
> 폼 A에서 seach버튼을 click하면, 작은 폼이 또 하나 열리거든여...
> 그런데 그 폼이 닫힐때... OK버튼을 눌러서 그 폼을 닫으면...
>
> table를 edit모드로, Cancle버튼을 눌러서 닫으면, table를 insert모드로 만들고 싶거든여... 그런데... 에러가 생기는 거예여...!_!
> [Error] F_ser_Form1.pas(43): Type of expression must be BOOLEAN
> 이라는 에러가...!!
> 어떻게 해야 하져?
>
procecedure btnokClick(Sender as TObject) ;
begin
datamod.TblForm.Edit;
end ;
procecedure btnCancelClick(Sender as TObject) ;
begin
datamod.TblForm.Insert;
end;
로 해야 합니다.
if 와 then 사이에는 참거짓을 판별할 수 있는 값이 들어와야하는데
btnok.Click는 btnok의 Click 이벤트라서
[Error] F_ser_Form1.pas(43): Type of expression must be BOOLEAN
라는 에러메세지를 내는 것입니다