Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Логические выражения 
:(
    Опции темы
NieL
Дата 9.3.2009, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1
Имеется список (TStrings) вида:

Код

A or (B and C)
(B and A) and C
C and A or B


Можно ли как нибудь получить результат вычисления для каждой строки
PM MAIL   Вверх
Qu1nt
Дата 9.3.2009, 16:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50
Если в лоб - как-нибудь так smile
Код

uses
  ComObj;

// Немножко уличной магии (%
function Calc(const CalcStr: AnsiString): AnsiString;
var
  v : Variant;
begin
  v := CreateOleObject('MSScriptControl.ScriptControl');
  v.Language := 'JScript';
  Result := v.Eval(CalcStr);
  v := Unassigned;
end;

function Replace(Text: AnsiString; X: array of Integer): AnsiString;
begin
  // совместимости ради
  Text := StringReplace(Text, 'and', '&', [rfReplaceAll, rfIgnoreCase]);
  Text := StringReplace(Text, 'or', '|', [rfReplaceAll, rfIgnoreCase]);

  // замена
  Text := StringReplace(Text, 'A', IntToStr(X[0]), [rfReplaceAll, rfIgnoreCase]);
  Text := StringReplace(Text, 'B', IntToStr(X[1]), [rfReplaceAll, rfIgnoreCase]);
  Text := StringReplace(Text, 'C', IntToStr(X[2]), [rfReplaceAll, rfIgnoreCase]);
  Result := Calc(Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  with TStringList.Create do
  begin
    // Инициализируемся :)
    Add('A or (B and C)');
    Add('(B and A) and C');
    Add('C and A or B');
    Caption := '';

    // Считаем и выводим
    for i := 0 to Count - 1 do
      Caption := Caption + #32 + Replace(Strings[i], [5, 10, 15]);

    // Уничтожаемся
    Free;
  end;
end;
PM MAIL   Вверх
NieL
Дата 9.3.2009, 16:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1
а в случае если сравниваются строки,  например  "строка = строка", как быть
PM MAIL   Вверх
Qu1nt
Дата 9.3.2009, 16:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50
Ну, про такой требуемый функционал ты промолчал = ) Возьми какой-нибудь скрипт-движок.
PM MAIL   Вверх
NieL
Дата 9.3.2009, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1
Цитата(Qu1nt @ 9.3.2009,  16:49)
Возьми какой-нибудь скрипт-движок.

Можете разъяснить поподробнее какой-именной искать, т.к. не совсем ясно
PM MAIL   Вверх
Qu1nt
Дата 9.3.2009, 17:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50
Pascal Script, у JEDI есть интерпретатор неплохой.
PM MAIL   Вверх
NieL
Дата 9.3.2009, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1
установил PascalScript, использовать надо, если не ошибаюсь компонент TPSScript? У него есть метод SetCompile(Data: string). Пытаюсь передавать строку туда - ничего не выходит.
PM MAIL   Вверх
Qu1nt
Дата 9.3.2009, 17:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 18
Всего: 50
Возможности поставить компонент сейчас нету, но помнится с ним шли примеры.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0458 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.