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;
相关文档：
在低版本中设定MSCOMM控件，是导入MSCOMM组件，然后就可以看见MSCOMM控件的电话的图标了，但是在DELPHI 2005或以上版本中就必须先把此控件创建到包中（BPL）然后导入BPL，那个电话图标就可以看见在工具条上了。我试了多少回才试出来的。 ......
距离上一篇系列的文章有一段时间了，假终于是放完了！现在咱继续在TEdit上做文章，同时来熟悉某些Windows的系统消息。现在我讲的是如何实现一个类似QQ编辑框的样式。
再讲解之前，先回馈前几篇文章有些人提出的问题。通过前几篇文章，有很多人关注，同时也有人给了一些建议。所以我这里说明一下，我这个组� ......
明天就是五一节了，辛苦了好几个月，借此机会应该尽情放松一番。可是想到Blog好久没有写文章，似乎缺些什么似的。这几个月来在项目中又增长了许多经验，学到许多实际应用的知识。不如把一些比较有用的记录下来，供朋友们参考可好。
我想到Delphi的事件，那可真是个方便的东西，初学者在窗体上拉几个� ......
第一种方法：
第一步： 修改属性
1、kind -> dtktime 也可以是dtkdate 但是在用dtkdate的时候需要将datemode属性修改成dmUpDown
2、parseinput -> true
第二步：在onUserInput事件中写一句代码
DateTimePicker1.DateTime:=DateAndTime;
注：以上方法虽然可以达到目的，� ......
unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
private
Connection: TADOConnection;
Query: TADOQuery;
Table: TADOTable;
FConnectio ......
