易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi表达式

function ExpCalc(exp: string): string;
var
vScript: Variant;
begin
vScript := CreateOleObject('ScriptControl');
vScript.Language := 'VBScript';
Result := vScript.Eval(exp);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=ExpCalc('100 *4.17/0.5*(55.22+22)/3.14');
ShowMessage(s);
end;
 


相关文档:

Delphi U盘插入拨出检测

Delphi U盘插入拨出检测:
1、新建工程;
2、在form1上放一个Label;
3、定义一个私有过程
     procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
完整代码如下:
unit Unit1;
interface
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics ......

DELPHI 2005中设定RS232(串口)控件(MSCOMM)的方法

在低版本中设定MSCOMM控件,是导入MSCOMM组件,然后就可以看见MSCOMM控件的电话的图标了,但是在DELPHI 2005或以上版本中就必须先把此控件创建到包中(BPL)然后导入BPL,那个电话图标就可以看见在工具条上了。我试了多少回才试出来的。 ......

delphi报警声音 Beep、MessageBeep 和 Windows.Beep


我的办法,增加一个timer 设置间隔100ms,通过timer的使能否,控制报警声音开关
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Windows.Beep(1200+i_f,10+i_f);
   if i_f<2000 then
   begin
      inc(i_f);
   end
end;
== ......

delphi实现字符串中数字的判断及相应数字累加

最近面试了一家企业,下面有一道从来没有想过的问题,当时有思路,不过写不出来.回来后,调试了一下,发现还是有难度的,写上来看大家是否还有更优化的写法,欢迎讨论:
下面实现将字符串"10ad200d3" 中的数字合计,10+200+3=213
var s1:string;
var i:integer;
var n1:integer;
var tem1: string;
var tem2:integer;
  ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号