Работа с массивами в Delphi

[Оль4ик]

Нет, к сожалению не помогает. Скриншоты:

[JIeIIIa]

Вместо := напишите =

[Оль4ик]

Видимо здесь причина в чем-то другом, попробую завтра разобраться

[Stilet]

 
var s:string;
...
s:=Edit13.text+Edit14.text+Edit15.text+Edit16.text+Edit17.text+Edit18.text;
 if s = '111010' then Edit21.text:= 'Птица' else
 if s= '111000' then  Edit21.text:= 'объект не опознан!'
...

Подойдет?

А проблемы были у тебя скорее всего из-за несоблюдения правил приоритетности

 if 
   (Edit13.text = inttostr(1))
  and
   (Edit14.text := inttostr(1)) 
  and
   (...)
...

[JIeIIIa]

Проэкт в студию, пожалуйста!

2 Stilet: Ну на скрине ж написано Operator not applicable to this operand type при чем тут приоритетность? Просто в If вместо оператора сравнения стоит оператор присвоения! Вместо "двоеточия равно" надо поставить "равно"!

зы: чет навеяло
- Доктор! Меня все игнорируют
- Следующий
- Но доктор, меня не замечают окружающие
- Я же сказал, Следующий

[Оль4ик]

Спасибо вам за помощь! Мне помог ваш последний совет! Теперь работает так, как мне нужно было!
Хотя Должна признаться, что в следующем: А проблемы были у тебя скорее всего из-за несоблюдения правил приоритетности

if 
   (Edit13.text = inttostr(1))
  and
   (Edit14.text := inttostr(1)) 
  and
   (...)

...я так и не разобралась, т. к. такая корректировка мне не помогла. Должна вам это показать из уважения ко всем, в том числе и к JIeIIIa. Демонстрирую свой проблемный проект, который заставил сюда обратиться ! (А работоспособный проект с учетом суперкорректировки не буду выкладывать - он работает, честное слово!)

[Stilet]

2 Stilet: Ну на скрине ж написано Operator not applicable to this operand type при чем тут приоритетность?

Ану давай ка проведем эксперимент.
Скомпилируй это:

if Edit1.Text=IntToStr(0) and Edit2.Text=IntToStr(0) then;

Что компиль скажет?
А потом это:

if (Edit1.Text=IntToStr(0)) and (Edit2.Text=IntToStr(0)) then;

А теперь что скажет?

А фишка вся в том что and приоритетнее чем сравнение, потому компилятор будет пытаться сначала выполнить выражение IntToStr(0) and Edit2.Text, что не есть правильным по смыслу.

Не веришь мне - проверь на Делфи.

Мне помог ваш последний совет!

Это где я предложил эдиты суммировать?

[Оль4ик]

Это где я предложил эдиты суммировать?

Т.е. как где ? А что тогда это:?

s:=Edit13.text+Edit14.text+Edit15.text+Edit16.text+Edit17.text+Edit18.text;

Кстати я, вроде разобралась со скобками, должно быть наверное так:

if  (Edit13.text = IntTostr(1)) then
  if   (Edit14.text = IntTostr(1)) then
   if  (Edit15.text = IntTostr(1)) then
    if (Edit16.text = IntTostr(0)) then
    if (Edit17.text = IntTostr(0)) then
    if (Edit18.text = IntTostr(0)) then
     Edit21.text:= 'объект не опознан!'

В этом случае всё компилируется, только не работает. (В Эдит 21 не выводится текст 'объект не опознан!')

[Serge_Bliznykov]

В этом случае всё компилируется, только не работает. (В Эдит 21 не выводится текст 'объект не опознан!')

(А работоспособный проект с учетом суперкорректировки не буду выкладывать - он работает, честное слово!)

Ольга, да верим мы Вам!
Главное, чтобы у Вас проект работал, ведь эта тема для того и нужна, чтобы Вам помочь..

[Stilet]

только не работает.

Тебе нужно научиться работать с отладчиком, если хочешь стать программистом.