怎么编“识别科学记数法的自定义函数”，高手救急啊。。。。

[fwinef]

字符类型数据：如2.00E2,20.4E5,2.00E-1，为科学记数法。
实际值为2乘10的2次，20.4乘10的5次，2.00乘10的-1次。


其实就是E前面的数乘以10为底E后面的数为指数的实际值。

如何编那。。。。关键是怎么将E前后的数区分开来，初学DEPHI，各位多多指教啊。。。。。

[僵哥]

iPos:=Pos(String,'E')

[何鲁青]

procedure TForm1.Button1Click(Sender: TObject);
var source,left,right:string;
begin
source:='2.00E2';
left:=leftstr(source,pos('E',source)-1);
right:=rightstr(source,length(source)-pos('E',source));
showmessage('左边：'+left+#13+#10+'右边：'+right);
end;

[fwinef]

楼上的说的不明白啊。。。IPOS是不是返回E前面的字符，那E后面的怎么求呢。。。。。高手来啊