摘要：Mozilla公布火狐4详情：更快 更支持开放标准火狐公布火狐4.0版的更多技术详情北京时间5月11日消息，据国外媒体报道，火狐(Firefox)浏览器开发商Mozilla技术开发副总裁迈克·贝尔泽纳(Mike Beltzner)今天公布了火狐4.0版的更多技术详情，称火狐4.0版整体运行速度将更快，将更多支持开放互联网浏览标准，同时把隐私保护控制权完全交给用户。贝尔泽纳称，如果进展顺利，火狐4.0版有望于今年10月或11月期间发布。如期发布火狐4.0版，已成为Mozilla当前的工作重点之一，“性能表现是我们必须解决的重大问题之一。我们已经承诺要提高火狐整体性能，因此必须做到这一点 阅读全文

摘要：网上查了下，貌似WriteComponentResFile，ReadComponentResFile可以，但是必须是一个TComponet的对象，我要串行化一个OleVariant的对象，大大们，怎么做？要持久对象，必须继承TPersistent....function ComponentToStr(AComponent: TComponent): string; var BinStream: TMemoryStream; StrStream: TStringStream; s: string; begin BinStream := TMemoryStream.Create; try StrS 阅读全文

摘要：CreateFontIndirect - 根据字体结构建立逻辑字体 //声明:CreateFontIndirect(const p1: TLogFont {字体结构}): HFONT; {返回新字体指针}//TLogFont 是 tagLOGFONTA 结构的重定义:tagLOGFONTA = packed recordlfHeight: Longint; {字体高度}lfWidth: Longint; {字体平均宽度}lfEscapement: Longint; {角度, 单位是 1/10 度}lfOrientation: Longint; {基线角度}lfWeight: Longint; 阅读全文

摘要：procedure SetPrinterPaper(APaperNo: Integer; APaperWidth,APaperHeight: Double);//设置当前打印机的纸张大小//纸张号 ９　A4 13 B5//页宽和页高，单位mmvarDevice: array[0..255] of char;Driver: array[0..255] of char;Port: array[0..255] of char;hDMode: THandle;PDMode: PDEVMODE;beginPrinter.PrinterIndex := Printer.PrinterIndex;Print 阅读全文

摘要：TMyString = class(TObject)private FStrBeginTran: string; FStrEndTran: string;protected function GetData(myData: TMyField): string; virtual; function GetFields(myData: TData): string; virtual;public property StrBeginTran: string read FStrBeginTran; property StrEndTran: string read FStrEndTran; class 阅读全文

摘要：function GetIDInfoGetDInfo(const CardNo: string; var Sex,BirthDay: string; var Age: Integer; var Area: string): Integer;variCardNo: Int64;iYear, iSex: Integer;sBirth, fBirth: string;dBirth: TDateTime;beginResult := 0; //表示身份证输入正确if (Length(CardNo) <> 15) and (Length(CardNo) <> 18) thenbe 阅读全文

摘要：procedure CloseEDTIME(edt: TEdit);varKeyStates: TKeyboardState;beginGetKeyboardState(KeyStates);if (KeyStates[VK_CAPITAL] = 1) thenbegin SetCapsLockKey(VK_CAPITAL, TRUE); //关大写end;Closeime(edt.Handle);end;procedure OpenEDTIME(edt: TEdit);varKeyStates: TKeyboardState;beginGetKeyboardState(KeyStates); 阅读全文

摘要：//去除左边的全角function MyTrimLeft(const S: string): string;varci, sl: integer;c: char;beginci := 1; sl := length(S);while (ci <= sl) dobegin c := S[ci]; case c of ' ': inc(ci); #161: if (ci < sl) and (S[ci + 1] = c) then inc(ci, 2); else break; end;end;Result := Copy(S, ci, sl);end;//去除右边的全 阅读全文