Текущий архив: 2003.01.27;
Скачать: CL | DM;

Вниз

Преобразование строк в...   Найти похожие ветки 

← →
ssmaxx   (2003-01-10 18:50) [0]

И еще один вопросик: имеется строка типа String: Str:=x*x-5. Необходимо сделать так, чтобы по этой формуле можно было расчитывать примерно так:

Function y(x:Real):Real;
Begin
y:=Func;
end;

где Func - это формула, описанная строкой Str.

---

← →
Poirot ©   (2003-01-10 19:18) [1]

"у ты какая" - ну вам как минимум надо интерпретатор формул написать (почти самим) или раскопать гденить.
Вам просто надо разбивать строку на блоки по приоритетам и рекурсивно вызывать для этих блоков функцию разбора по приоритетам, а кода бить нечего - начать вычисления...
Так вот и уж давайте без Y. Есть вполне прикольная переменная у каждой функции - Result///

---

← →
Axis_of_Evil ©   (2003-01-10 19:19) [2]

2 ssmaxx:
это сложно, забудь про это.

---

← →
D   (2003-01-10 19:23) [3]

Где-то на сайте Королевство Дельфи предлагалась подобная биб-ка.

Или можно сформировать во время вып-я программы dll, записав туда
эту функцию
Function y(x:Real):Real;
Begin
y:=<сюда запишется конкретная строка>;
end;
Но подробностей не помню, 5 лет назад писала :(

---

← →
ssmaxx   (2003-01-10 19:44) [4]

Ну спасибо и на этом.

---

← →
ssmaxx   (2003-01-10 20:07) [5]

Я почему предполагаю, что это возможно: когда я был маленьким, (

---

← →
D   (2003-01-10 20:30) [6]

Могу в понедельник поискать (дискеты дома, а Инет на работе)

---

← →
ssmaxx   (2003-01-10 20:42) [7]

Если не трудно, скиньте все найденное (желательно по теме) на ssmaxx@yandex.ru
Заранее благодарю!

---

← →
BlackTiger   (2003-01-11 15:07) [8]

Да возьми просто класс TParser из FreeReport"а и всё. Пишешь так

Uses
//...
//...

procedure ParserGetValue(const s: String; var v: Variant);
begin
//s - имя переменной
//v - значение переменной
// здесь определяешь значение переменной
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Parser := TParser.Create(nil);
Parser.OnGetValue := ParserGetValue;
end;

function CalculateExpression(const Expr: string): variant;
begin
Result := Parser.Calc(Expr);
end;


Многое опустил, но, думаю, все должно быть понятно.

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.27;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.026 c