procedure Tsangsin.ListenClick(Sender: TObject);
다음의 예문을 보아 주십시오.
채팅창을 만들고 있는 중인데요, Listen menu에 check 표시가 되어 있는지 조사하는
코딩입니다. 근데 코딩 맨 윗줄의 코딩을 보면 Check := not check은 무슨 의미일
까요. 아시는 고수분들의 답변 부탁드립니다...
begin
< Listen.Checked :=not Listen.Checked;>
if Listen.Checked then
begin
ClientSocket1.Active := False;
ServerSocket1.Active := True;
StatusBar1.Panels[0].Text:='연결 체크중';
end
else
begin
if ServerSocket1.Active then
ServerSocket1.Active := False;
StatusBar1.Panels[0].Text :='';
end;
end;
if Listen.Checked then // Listen.Checked가 True이면 False 어사인
begin
Listen.Checked := False;
end else // Listen.Checked가 False이면 True 어사인
begin
Listen.Checked := True;
end;
위의 코드를 한줄로 줄이면..
Listen.Checked := not Listen.Checked;
가 되죠..
delpo wrote:
> procedure Tsangsin.ListenClick(Sender: TObject);
> 다음의 예문을 보아 주십시오.
> 채팅창을 만들고 있는 중인데요, Listen menu에 check 표시가 되어 있는지 조사하는
> 코딩입니다. 근데 코딩 맨 윗줄의 코딩을 보면 Check := not check은 무슨 의미일
> 까요. 아시는 고수분들의 답변 부탁드립니다...
>
>
> begin
> < Listen.Checked :=not Listen.Checked;>
>
> if Listen.Checked then
> begin
> ClientSocket1.Active := False;
> ServerSocket1.Active := True;
> StatusBar1.Panels[0].Text:='연결 체크중';
> end
> else
> begin
> if ServerSocket1.Active then
> ServerSocket1.Active := False;
> StatusBar1.Panels[0].Text :='';
> end;
> end;