Q&A

  • [살려주세요]VBSCRIPT를 사용한 델파이
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) 로 입력하여 계산하면 되는데

변수를 사용하니까 전혀 먹히지 않아요..

델파이 개발자 분들 꼭 디버깅 부탁 드려요....ㅜ.ㅜ





0  COMMENTS