cncqly的专栏

procedure CheckResult(b: Boolean);begin if not b then raise Exception.Create(SysErrorMessage(GetLastError));end;function RunDOS(const CommandLine: string): string;var HRead, HWrite: THand...

function mGetLanguage:string;var mBuf: array[0..255] of char;begin GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_ILANGUAGE,mBuf,256); Result:=StrPas(mBuf);end;使用示例：ShowMessage(mGetLanguage)...

用 GetEnvironmentVariable 获取系统变量来得快.--------------------------------------------------------------------------------//譬如 %WINDIR% 是表示系统目录的系统变量, 可以这样获取:vars: string;begins := GetEnvironmentVariabl...

Delphi中表示跳出的有break，continue，abort，exit，halt，runerror等1.break　　强制退出最近的一层循环（注意：只能放在循环里；而且是只能跳出最近的一层循环），用于从for、while、repeat语句中强制退出　　类似于C/C++等语言中的break的功能2.continue　　用于从for、while、repeat语句中结束循...

原文地址delphi 过程以保留字procedure开始，没有返回值；函数以保留字function开始，有返回值。过程参数位于括号里面，多个参数之间以分号分隔，例如：procedure SetDate(Year: Integer; Month: Integer; Day: Integer);也可以将相同类型的参数组合在一起，则上述过程标题写成：procedure SetDate...