Цитата:
Сообщение от ariane
хочу реализовать задачку: на форме расположены компоненты TEdit, TButton, TLabel. В поле TEdit вводят нестандартные символы / \ + - 0 1. При правильном вводе этой комбинации и нажатии кнопки Button - выводится утвердительное сообщение. Если комбинация приведена неправильно - выводится отрицательное сообщение на Label.
|
До конца не понимаю. Задача вроде простая, а вы вроде пошли сложным путем. Или сама задача неправильно описана.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text = '/ \ + - 0 1' then
label1.Caption:='super super '
else
label1.Caption:='Oi, ne super'
end;