摘要：function tform1.RarFile:Boolean;var FileName,RarName,mystr:string;begin Result:=False; mystr:=ExtractFilePath(Application.ExeName)+'WinRar\WinRar.exe -INUL'; FileName:=ExtractFilePath(Application.ExeName)+'Excel\*.*'; RarName:=ExtractFilePath(Application.ExeName)+'RarFile\WeeklyR 阅读全文

摘要：今天在coding时使用了Power这个数学函数，但是奇怪的时候一直提示：Undeclared identifier:'Power';度娘后找到了原因是因为需要在use中加入Math模块，下次一定注意了，这次做个笔记，呵呵十六进制转换成十进制可以参考以下代码：function Hex2Dec(Hex : string) : string; var i : integer; res : real; len : integer; begin len := length(Trim(Hex)); for i := 1 to len do begin ... 阅读全文

摘要：program AIMQuery;uses Vcl.Forms, Winapi.Windows, UnitAIM in 'UnitAIM.pas' {Form1};{$R *.res}var hAppMutex:THandle;begin Application.Initialize; hAppMutex:=CreateMutex(nil,False,PChar('OnlyOne'));if (hAppMutex=0) then begin MessageBox(0,PChar('創建互斥對象！'),PChar('Error'), 阅读全文

摘要：SELECT t.table_name, t.colUMN_NAME, t.DATA_TYPE || '(' || t.DATA_LENGTH || ')', t1.COMMENTSFROM User_Tab_Cols t, User_Col_Comments t1WHERE t.table_name = t1.table_name AND t.column_name = t1.column_name; 之前老是在想怎么导出的比较好，今天这个sql挺好的，菜鸟必备 阅读全文

摘要：个人笔记，怕忘记了 阅读全文