Тема: TEdit
Показать сообщение отдельно
  #4  
Старый 10.04.2008, 12:34
MegaPiha MegaPiha вне форума
Активный
 
Регистрация: 24.03.2008
Сообщения: 227
Версия Delphi: Delphi 7
Репутация: 30
По умолчанию

Цитата:
Сообщение от 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;
Ответить с цитированием