Программа не слушается условия

← →
DriverSTi (2010-01-08 23:46) [0]

Здравствуйте, уважаемые участники форума!
Хочу написать программку, в которой есть условие. Для примера, если вводимое слово типа "Автобус", "Джип", "Спорткар", то программа пишет "Это автомобиль". В противном случае - "Это не машина". Практической пользы от неё никакой, только написание правильного условия для меня, как бы дело чести. Да и в будущем, не сомневаюсь, буду часто встречаться с подобными проблемами. Итак, короткий листинг программы (много чего уже менял по 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.
И еще такой вопрос: как задать условие, чтобы пользователь в этом случае вводил только буквы кирилицей или латиницей? Как вводить только цифры - знаю, а вот буквы - нет.

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

← →
Германн © (2010-01-08 23:51) [1]

> else Label3.Caption := "Это не автомобиль";

Следует заменить на
else Label3.Caption := "Это вообще не строка, а мусор";

> Как вводить только цифры - знаю

Буквы точно также

← →
Jeer © (2010-01-09 00:28) [2]

> var
> n : String;
> begin
> if (n="Автобус")

n откуда инициализируется ? - главный вопрос.

← →
DVM © (2010-01-09 00:40) [3]

> n откуда инициализируется ? - главный вопрос.

жалко, что n обнуляется, а то бы это была Дзен-программа, вообще без поля ввода. Мало ли звезды лягут так что там будет Спорткар.

← →
Anatoly Podgoretsky © (2010-01-09 00:43) [4]

> Jeer (09.01.2010 00:28:02) [2]

if n не инициализирован, then "паровоз"

← →
Юрий Зотов © (2010-01-09 00:45) [5]

Положите на форму TEdit и добавьте 1 строчку:

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

← →
Германн © (2010-01-09 01:08) [6]

> DVM © (09.01.10 00:40) [3]
>
>
> > n откуда инициализируется ? - главный вопрос.
>
> жалко, что n обнуляется

С какого перепугу?

← →
Anatoly Podgoretsky © (2010-01-09 01:12) [7]

> Юрий Зотов (09.01.2010 00:45:05) [5]

Edit1.Text := "Мерседер";
Edit1.Text := "Jeep";

← →
Юрий Зотов © (2010-01-09 01:38) [8]

> Anatoly Podgoretsky © (09.01.10 01:12) [7]

Это он потом сам поймет, как только программа заработает. И это уже будет следующий вопрос, а начинать надо с малого.

← →
Германн © (2010-01-09 01:41) [9]

Никак не отвыкну от старого доброго паскаля. :(

> Anatoly Podgoretsky © (09.01.10 01:12) [7]

> Мерседер

точно не автомобиль, но и Мерседес не обязательно автомобиль. Особенно если первая буква прописная.
:)

← →
Дмитрий Белькевич (2010-01-09 17:38) [11]

Даже если и прописная.

> Программа не слушается условия

ИИ в действии, программа уже переросла своего создателя :-)

> Дмитрий Белькевич (09.01.10 17:38) [11]
> Даже если и прописная.

И МерсЕдес, тоже продукт автопрома? Зря жил, пол жизни потерял. Жалко, девушка красивая была... Оказалось - автосоздание :(

Программа не слушается условия Найти похожие ветки