摘要：function IsNumberic(Vaule:String):Boolean; //判断Vaule是不是数字vari:integer;beginresult:=true; //设置返回值为 是（真）Vaule:=trim(Vaule); //去空格 for i:=1 to length(Vaule) do //准备循环 begin if not (Vaule[i] in ['0'..'9']) then //如果Vaule的第i个字不是0-9中的任一个 begin result:=false; //返回值 不是（假） ... 阅读全文

摘要：(*//标题:获取其他进程中ListBox和ComboBox的内容说明:Window2000+Delphi6调试通过设计:Zswang支持:wjhu111@21cn.com日期:2004-03-25//*)function GetListBoxText(mHandle: THandle; mStrings: TStrings): Boolean;var vItemCount: Integer; I: Integer; S: string;begin Result := False; if not Assigned(mStrings) then Exit; mStrings.Begi... 阅读全文

摘要：FDOM 和DOM-------------FDOM返回参数中日期所在月份的第一天的日期。而LDOM返回该月份的最后一天的日期（所给日期的下一个月的第一天日期减去一）。 function FDOM(Date: TDateTime): TDateTime; var Year, Month, Day: Word; begin DecodeDate(Date, Year, Month, Day); Result := EncodeDate(Year, Month, 1); end; function LDOM(Date: TDateTime): TDateTime; v... 阅读全文

摘要：//客户端机器的MAC地址function GetMacAddress: string;var Lib: Cardinal; Func: function(GUID: PGUID): Longint; stdcall; GUID1, GUID2: TGUID;begin Result :=''; Lib := LoadLibrary('rpcrt4.dll'); if Lib <> 0 then begin if Win32Platform <>VER_PLATFORM_WIN32_NT then @Func := GetProcAddr 阅读全文