StringGrid и Real

[Stalkker247]

04:31
Здравствуйте. У меня есть StringGrid с двумя колонками, нужно в левой записывать уровнение (Напр. 3*2,5), а в правой получать ответ. Буду Благодарен за помощь). Спасибо).

04:48
Выдает "1*1 не число" ,как его умножить??

Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
У нас есть кнопка "Правка".
Читаем правила раздела.
По правилам это приравнивается к флуду.

[veniside]

> "1*1 не число"

ну, это не бейсик, где интерпретатор на лету мог сам разруливать такие выражения.
По-хорошему ван нужен парсер, сложность которого зависит от сложности выражений. Например, должен ли он понимать скобки?

[Stalkker247]

05:21
Продолжаем монолог)
есть такой способ, но для больших уравнений не подойдет такая возня.

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
x:real;
str:string;
a,b:string;
begin
for i:=0 to 10 do
begin
if zalv.Cells[0,i] <>  '0' then
begin
str:=zalv.Cells[0,i];
a:=copy(str,0,pos('*',str)-1);
b:=copy(str,pos('*',str)+1,length(str));
x:=strtofloat(a)*strtofloat(b);
zalv.Cells[1,i]:=floattostr(x);
end;
end;
end;

05:29

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

> "1*1 не число"
ну, это не бейсик, где интерпретатор на лету мог сам разруливать такие выражения.
По-хорошему ван нужен парсер, сложность которого зависит от сложности выражений. Например, должен ли он понимать скобки?

спасибо за ссылку

Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
У нас есть кнопка "Правка".
Читаем правила раздела.
По правилам это приравнивается к флуду.

[Serge_Bliznykov]

я тут на форуме неодократно выкладывал исходники простенького старенького парсера собственной разработки (EXPRUS).

если интересно - смотрите ТУТ