摘要： COM Component Object Model OLE Object Linking and Embedding VCL Visual Component Library IDE Integrated Development Environment Virtual Abst... 阅读全文

摘要： Files Simply put a file is a binary sequence of some type. In Delphi there a three classes of file:typed, text, and untyped. Typed files are files that contain data of a particular type, such as Doub... 阅读全文

摘要： Calculating Factorial "If the integer number is less than zero, reject it. If the number is zero or one, its factorial is one. If the number is larger than one, multiply it by the factorial of the nex... 阅读全文

摘要： 1. insert the following line into your form's "Private declarations" section (message handling procedure declaration): procedure WMNCHitTest(var Msg: TWMNCHitTest) ; message WM_NCHitTest; 2. add the... 阅读全文

摘要： Locate AdoTable1.Locate('Name','Zoom',[]); var ffield, fvalue: string; opts : TLocateOptions; ffield := 'Name'; fvalue := 'zoom'; opts := [loCaseInsensitive];... 阅读全文

摘要： 首先有两个自定的转换函数： function myStrToHex(s:string):string; //字串转16进制 var TmpStr:string; i:integer; begin TmpStr:=''; for i:=1 to Length(s)do TmpStr:=TmpStr+IntToHex(ord(s[i]),2); Resu... 阅读全文

摘要： 使用消息机制： 下一个焦点： SendMessage(Form1.Handle,WM_NEXTDLGCTL,0,0); 上一个焦点： SendMessage(Form1.Handle,WM_NEXTDLGCTL,1,0); 阅读全文

摘要： procedure TForm1.Edit1KeyPress (Sender: TObject; var Key: Char) ; begin If Key = #13 Then Begin If HiWord(GetKeyState(VK_SHIFT)) <> 0 then SelectNext(Sender as TWinControl,False... 阅读全文

摘要： procedure TForm1.Edit1Change(Sender: TObject); begin if Sender is TCustomEdit then with Sender as TCustomEdit do if edit1.MaxLength = GetTextLen then self.SelectNext(TCusto... 阅读全文

摘要： 音频 Libzplay libZPlay库直接对声卡播放音乐，简单容易。仅仅3行代码（创建类，打开文件，开始播放），你就可以播放音乐。 使用所支持的编码器，你也同样可以直接从声卡上录制声音（microphone, line-in, CD, ...）和把录制的声音保存到磁盘。视频 Ffmpeg 阅读全文