Witam, w sumie to nie wiedzialem jaki dac tytul do mojego problemu, wiec od razu mowie : sorry.
A moj problem przedstawia sie nastepujaco :
Mam funkcje :
function TForm1.WartoscFunkcji(x:real):double;
var znak : array
begin
result:=cos(x)*2+2;
end;
jest ona potem wykorzystywana do rysowania funkcji wykresu, jednak zeby zmienic funkcje(np. z cos(x)*2+2 na x^2) trzeba wejsc do zroda i ponownie skompilowac program.
Jak rozbic podany ciąg znaków (user wpisuje wzór do TEdit) na pojedyncze znaki i wstawic je tak aby powyzsza funkcja zadzialala, bo jak widac StrToFloat() nie pomoze gdyz we wzorze funkcji moga znajdowac sie znaki : + - / * ^ no i wtedy oczywiscie wywala blad.
Tak wiec jak to rozbic zeby zadzialalo ? :| reszty programu nie moge za bardzo zmienic, a nie pomyslalem o tym predzej, problem pojawil sie gdy skonczylem praktycznie 90% programu :/