Программа не слушается условия [D7, XP]

[DriverSTi]

Здравствуйте, уважаемые участники форума!
Хочу написать программку, в которой есть условие. Для примера, если вводимое слово типа "Автобус", "Джип", "Спорткар", то программа пишет "Это автомобиль". В противном случае - "Это не машина". Практической пользы от неё никакой, только написание правильного условия для меня, как бы дело чести. Да и в будущем, не сомневаюсь, буду часто встречаться с подобными проблемами. Итак, короткий листинг программы (много чего уже менял по 10 раз, так что оригинальный не сохранился):

procedure TForm1.Button1Click(Sender: TObject);
 var
   n : String;
begin
   if (n='Автобус') or (n='Джип') or (n='Спорткар')
     then Label3.Caption := 'Это автомобиль'
     else Label3.Caption := 'Это не автомобиль';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Form1.Close;
end;

end.

И еще такой вопрос: как задать условие, чтобы пользователь в этом случае вводил только буквы кирилицей или латиницей? Как вводить только цифры - знаю, а вот буквы - нет.

Будьте добры, помогите чайнику. Заранее премного благодарен.

[Terran]

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If (Edit1.Text = 'Автобус') Or (Edit1.Text = 'Джип') Or (Edit1.Text = 'Спорткар') Then
Begin
Label1.Caption:= 'Это автомобиль';
End
Else
Label1.Caption:='Это не автомобиль';
End;

И еще такой вопрос: как задать условие, чтобы пользователь в этом случае вводил только буквы кирилицей или латиницей? Как вводить только цифры - знаю, а вот буквы - нет.

Что-то не совсем понял вопрос...

[Пепел Феникса]

так же как и с цифрами.

[Stilet]

Как по мне ( не проверял) код автора нормально должен фунциклировать.
В чем проблема то?

[SoftKoc]

Здравствуйте, вот вам пример!
Ну я бы посоветовал не делать условие таковым, в вашем случае луче сделать список вариантов, а потом просто фильтровать его и проверять наличие, если есть значит ( авто ), если же нет то ( не авто ).
Если поможет моя информация кликните на весы пожалуйста

>>Primer.rar<<

[DriverSTi]

Сообщение от Stilet

Как по мне ( не проверял) код автора нормально должен фунциклировать.
В чем проблема то?

Проблема в том, что вводи хоть "Автобус", хоть "Танк" программа пишет все время одно и тоже: "Это не автомобиль"

[Stilet]

DriverSTi

Значит ставь точки прерывания на код проверки и смотри что с чем проверяется.

[SoftKoc]

Ну это у вас проблемы с переменой ( n ), скорее всего!
Где вы присваиваете в нее значение?
Можно полный код?

[DriverSTi]

Сообщение от Terran

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If (Edit1.Text = 'Автобус') Or (Edit1.Text = 'Джип') Or (Edit1.Text = 'Спорткар') Then
Begin
Label1.Caption:= 'Это автомобиль';
End
Else
Label1.Caption:='Это не автомобиль';
End;

Что-то не совсем понял вопрос...

Спасибо, сейчас попробую.
А на счет второго вопроса: когда задаешь

case Key of
'0'..'9'

вводяться только цифры. А как задать условие, чтобы вводиились только слова, а знаки и цифры игнорировались? 589 - это же не транспортное средство.

[SoftKoc]

Я скинул пример в Архиве, вы смотрели???
Пост #5!!!