vbscript로 일정한 수식을 받아 계산하는 루틴이 꼭 필요합니다.
아래와 같은 코딩이 자꾸 에러가 나는데
vbscript를 델파이에 쓰자니 너무 어렵네요..
꼭 디버깅 부탁 드립니다.
여기서 ScriptControl1은 MsScript.OCX를 델파이 컴포넌트화 한것입니다.
버튼을 클릭 했을때
Edit1.Text에는 다음과 같은 식이 저장되어 있습니다.
Edit1.Text의 내용 ==> 10*log((a-b)/b)
procedure TForm1.BitBtn1Click(Sender: TObject);
var
vntResult : OleVariant;
a,b,strScript : string;
begin
ScriptControl1.Language := 'VBScript';
a:= '20';//a,b 공이 어떤 계산에 의한 결과가 저장된 값입니다.
b := '10';
VntResult := ScriptControl1.Eval(Edit1.Text);
Edit2.TExt := vntResult;
end;
VBScript자체를 이해하지 못해서 그런거 같은데...
전 어떻게 되는지 전혀 모르겠습니다.
단순히 Edit1.Text에 10*log((10-9)/9) 로 입력하여 계산하면 되는데
변수를 사용하니까 전혀 먹히지 않아요..
델파이 개발자 분들 꼭 디버깅 부탁 드려요....ㅜ.ㅜ