Witam.
Pisze sobie programik i potrzebuje zrobić warunek, który będzie wyświetlał wiadomość jeżeli kilka(6) buttonów nie będzie miało pustego captiona. Napisałem coś takiego:
procedure TForm1.Button7Click(Sender: TObject);
begin
if not (Button1.Caption='') and (Button2.Caption='') and (Button3.Caption='') and (Button4.Caption='') and (Button5.Caption='') and (Button6.Caption='') then ShowMessage('Wiadomość');
end;
W tych buttonach od 1-6 ustawiłem testowe captiony(asdf) i gdy klikam w button7 to nie wyświetla mi wiadomości(a przecież buttony nie są puste, więc powinna wyświetlić się wiadomość).
Może mi ktoś powiedzieć co mam nie tak?
Pozdrawiam.