Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

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

korneley (2010-01-10 19:28:00) [1]

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

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

Плохиш (2010-01-10 17:09:00) [2]

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

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

Дмитрий Белькевич (2010-01-09 17:38:00) [3]
Даже если и прописная.

Германн (2010-01-09 01:44:00) [4]

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

> Мерседер

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

Германн (2010-01-09 01:41:00) [5]
Никак не отвыкну от старого доброго паскаля. :(

Юрий Зотов (2010-01-09 01:38:00) [6]
> Anatoly Podgoretsky © (09.01.10 01:12) [7]

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

Anatoly Podgoretsky (2010-01-09 01:12:00) [7]
> Юрий Зотов (09.01.2010 00:45:05) [5]

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

Германн (2010-01-09 01:08:00) [8]

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

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

Юрий Зотов (2010-01-09 00:45:00) [9]
Положите на форму 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;

Anatoly Podgoretsky (2010-01-09 00:43:00) [10]
> Jeer (09.01.2010 00:28:02) [2]

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

DVM (2010-01-09 00:40:00) [11]

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

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

Jeer (2010-01-09 00:28:00) [12]

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

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

Германн (2010-01-08 23:51:00) [13]

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

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

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »