Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

Проверка выражения на true/false НУЖНА ПОМОЩЬ!!! 


Lotus   (2002-01-05 15:27) [0]

Подскажите плз. как проверить на истину логическое выражение в Ansi-строке. Например: есть Ansi-строка: " 2>1 AND 10>4", нужно
чтобы программа определила, что это выражение TRUE.



Андрей Сенченко   (2002-01-05 15:32) [1]

pos("",AnsiStroka), pos("<",AnsiStroka), pos("OR",AnsiStroka), ...
Короче сам для себя определяешь правила записи и возможные варианты этой самой AnsiStroka и сам для себя их потихонечку кропотлтво описываешь ...



Lotus   (2002-01-05 15:50) [2]

Нет POS не подходит, т.к. числовые выражения могут быть совершенно разной длинны напр. "1200<1" тут уже получится нужно определять что stroka.pos("<") это 5??
Я пишу программу, в которой пользователь сам строит логические условия (как в примере) и вводит их напр. в TEdit, а комп. их обрабатывает на истинность.



Lotus   (2002-01-05 15:59) [3]

Другими словами как мне перелопатить и потом подставить эту строку в условие типа:
if !stroka { ..... };
где stroka это то, что см. выше.



Андрей Сенченко   (2002-01-05 15:59) [4]

Наверное не совсем догоняешь мысли ... или я хреново толкую
Есть строка вида :
str := "12536.37>12536.38 AND 15=14"

1. Проверяешь нет ли пробела в начале
2. Вычленяешь первое условие ( т.е ищешь первый пробел )
Substr1 := copy(st,pos(" ",st),0)
3. Определяешь символ отношения
pos(">",st)
4. Отрезаешь строки ДО и ПОСЛЕ символа отношения, ковертишь в число и сравниваешь ...
и так далее.

....
Замотаешься конечно перебирать ВСЕ варианты, но можно облегчить себе жизнь предварительным проходом по стороке, убоем в ней всех пробелов, вычислением в ней всех логических и математических операторов и их позиций, а потом просто разобрать это по собственным правилам.



Андрей Сенченко   (2002-01-05 16:01) [5]

... а объяснить компилятору, что вот в этой переменной нужно будет когда-то потом найти логическое условие ... не знаю. Врядли.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
1-75608           Трынкин Сергей        2002-01-08 10:52  2002.01.24  
Подскажите пожалуйста где взять ADOExpress Update Pack 1


3-75482           Dim                   2001-12-17 11:57  2002.01.24  
Почему не правильно работает RecordCount?


1-75610           Анатолий              2002-01-07 05:58  2002.01.24  
Форма


3-75509           Dim                   2001-12-21 09:32  2002.01.24  
Подключение к удаленной БД.


6-75640           Spirit                2001-10-29 21:45  2002.01.24  
Как?