Delphi abc
1. 字符串连接直接用+，与Java和Python中的相同
2. 执行外部命令使用winexec，ShellExecute
eg. ShellExecute(0, 'open', 'jre/bin/java', '-lang zh-CN', 'E:\myfolder', SW_SHOW);
3. 判断文件、文件夹是否存在
FileExists('C:\Users\bill\somefile.txt')
DirectoryExits('C:\WINDOWS')
4. if else 结构
if FileExists(Edit1.Text) then
begin
....
end // 不可加分号
else if DirectoryExits('Edit1.Text') then
begin
....
end // 不可加分号
else
begin
....
end;
5. 获取屏幕宽度高度直接使用 Screen.Width Screen.Height
6. 设置窗口位置 SetBounds(left. top, width, height)
相关文档：
TDXDraw DirectDraw 和 Direct3D 组件
TDXDIB 容纳DIB（设备无关位图，Device Independent Bitmap）的组件
TDXImageList 图片列表组件
TDX3D Direct3D 组件 （和TDXDraw一起使用）
TDXSound DirectSound 组件
TDXWave 容纳 Wave（波形音频 ......
在Delphi里实现MD5加密其实很容易！方法如下：
在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元，再写如下代码
即可以达到MD5的实现。
示例代码
procedure
TForm
1.Button1Click(Sender: TObject);
var
MyMD5: TIdHashMessageDigest5;
Digest: T4x4LongWordRecord;
begin
MyMD5 := T ......
1、先用Const 定义一个常量，例如 const WM_MyMessage=WM_USER+$200;
2、在要实现的unit中定义一个私有方法
procedure doMyMessage(var msg:TMessage);message WM_MyMessage;
3、实现这个私有方法
procedure TForm1.doMyMessage(var msg:TMessage);
begin
//
if msg. ......
type
TTurboRecord = record
strict private
fNameValue : integer;
function GetName: string;
public
NamePrefix : string;
constructor Create(const initNameValue : integer) ;
property Name : string read GetName;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
......
根据剪贴板的原理，在获取剪贴板内容之前，必须指定要获取内容的格式。由于剪贴板中的数据可能存在多种格式，所以有必要对剪贴板的格式类型先做一些了解。W写下了以下的测试代码：
procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
Buffer: PChar;
s: string;
begin
M ......
