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

[DriverSTi]

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

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

А как это делать? Я Делфи лишь пару дней изучаю. До этого пару недель изучал ТурбоПаскаль

[DriverSTi]

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

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

Да, смотрел. Спасибо! Вот только "Автобус" для Вашей программы "Автомобиль", а "автобус" - нет.

А это весь код. Выше только код лейблов и баттонов с эдитами. Мне лишь надо понять сам смысл этой фичи. Как правильно задавать условие и находить правильные ответы.

[SoftKoc]

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

Да, смотрел. Спасибо! Вот только "Автобус" для Вашей программы "Автомобиль", а "автобус" - нет.

А это весь код. Выше только код лейблов и баттонов с эдитами. Мне лишь надо понять сам смысл этой фичи. Как правильно задавать условие и находить правильные ответы.

Ну так это уже нужно проверять если маленькая первая буква, тогда заменить ее на большую! Потому что это тоже играет большую роль в этом.

[Terran]

Вот только "Автобус" для Вашей программы "Автомобиль", а "автобус" - нет.

Ну так это уже нужно проверять если маленькая первая буква, тогда заменить ее на большую! Потому что это тоже играет большую роль в этом.

Лучше воспользоваться функцией AnsiUpperCase('Строка'); Эта функция переводит строку в верхний регистр.

[SoftKoc]

#14 Поддержу =)

[DriverSTi]

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

Ну так это уже нужно проверять если маленькая первая буква, тогда заменить ее на большую! Потому что это тоже играет большую роль в этом.

Главное, что благодаря выложенным тут кодам я могу разобраться как правильно записывать)))) А проверка первой буквы - это уже следующий шаг. Хорошо, что у меня есть книжечка по ТурбоПаскалю, там есть и такая фишка

[mihali4]

Не первую букву нужно проверять...
Сравнение нужно делать немного по-другому:

 if (AnsiUpperCase(n)=AnsiUpperCase('Автобус'))...

или AnsiLowerCase...
Главное - привести сравниваемые строки к "общему знаменателю", вернее - регистру...

[Dembel]

Посмотрел код в первом посте, неувидел присвоения значения переменной n в процедуре, соответсвенно на момент проверки условия

if (n='Автобус') or (n='Джип') or (n='Спорткар')
     then Label3.Caption := 'Это автомобиль'
     else Label3.Caption := 'Это не автомобиль';

она у тебя равна '', потому и выскакивает все время 'Это не автомобиль'. Хотя я сам еще только учусь м.б. не так понял че?:D