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中，组件，我们可以将它理解为一个个的封装好了的功能对象库，使用这个库，就只用简单的几句代码，甚至仅仅简单的设置几个属性就能实现某些
功能，我们可以将组件想象成日常生活中使用的某些 ......
在上一篇中，我们简单的实现了一个对Delphi自身的TEdit编辑框控件的一个扩充！但是我们并不能像Delphi自己的TEdit一样，能够
在设计状态下进行设计，而是非得要自己手动创建控件，然后才能使用。这个虽然说也是组件，但是却失去了组件的可设计的方便性，仅仅可作为一个类库来使用。
现在我就来介绍一下，如何让这个组件注 ......
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的
DLL或是Pas了。
在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元，再写如下代码即可以达到MD5的实现。
示例代码
procedure TForm1.Button1Click(Sen ......
Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法：
一、 查找窗口法
� ......
unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
private
Connection: TADOConnection;
Query: TADOQuery;
Table: TADOTable;
FConnectio ......
