Lendo variável para resolver expressões...

Delphi

10/06/2004

Estou desenvolvendo um programa, que contem esse código:
Excalibur:=TStringStream.Create(´´);
Excalibur.WriteString(Socket.ReceiveText);
notas1.Lines.Add(Excalibur.DataString);
X:=pos(Excalibur.DataString, simples);
Y:=pos(Excalibur.DataString, alfanumerico);
W:=pos(Excalibur.DataString, incognita);
Z:=pos(Excalibur.DataString, complexos);
If X <> 0 then
begin

end;

Vocês podem ver, que ele verifica se existe, a variável [b:25c87ff8c0]simples[/b:25c87ff8c0] na [i:25c87ff8c0]TStringStream[/i:25c87ff8c0]: [b:25c87ff8c0]Excalibur[/b:25c87ff8c0], se estiver, como demonstra essa condicional, ele irá resolver uma expressão que foi recebida com essa variável...
Ex:
simples=[i:25c87ff8c0]resolver[/i:25c87ff8c0]
Código recebido:
resolver 30-(20+10)^2 (^ é entendida como potência)...
Agora eu quero saber, como ele irá identificar cada símbolo desse código e depois de ler tudo, resolver a expressão...


Jasig Aurumalfa

Jasig Aurumalfa

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

10/06/2004

Colega,

Na jedi VCL existem dois componentes para funcionar com interpretadores, mas eu nunca testei, se puder, faça um teste.


GOSTEI 0
Jasig Aurumalfa

Jasig Aurumalfa

10/06/2004

Há algum outro geito?


GOSTEI 0
POSTAR