面朝大海，春暖花开。

摘要： 奇淫怪巧之给Delphi的PrintDialog增加一个页码选定范围打印的Edit 在Delphi中使用PrintDialog打印对话框的时候，这个控件有三个选项，就是PrintRang那个属性的三个选项，其中有一个选项三，让我们自定义选择页码范围来打印。但是比较蛋疼的是，这个地方选中了之后啥子效果 阅读全文

摘要： 项目，增加了一个单元后，经常在第二次编译时出现 Internal error: URW3537的错误： 原因： 主要是type ＝ function 的原因，常出现与dll调用 解决方法： 1、全部编译 comiple all 2、把type ＝function 移动到最开始的type 处； 阅读全文

摘要： delphi 中TStringList 通过function AddObject(const S: string; AObject: TObject): Integer; 方法添加了一个对象，请问我在调用Clear 方法的时候该对象有没有被释放 object里存的只是指向对象的指针，clear只是把 阅读全文

摘要： Delphi中，自定义消息处理过程与Windows消息处理过程的定义是一样的。1.主用步骤：1>. 首先定义一个消息标识符常量；如：WM_MYMessage = WM_USER+ 5；（标识符常量的取值范围为WM_USER~WM_APP-1） 2>. 在单元文件中定义消息响应过程和消息标识符常量。 阅读全文

摘要： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, System.DateUtils, Vcl.Cont 阅读全文

摘要： CREATE OR REPLACE Function GetSumTime(InDT Number) Return VarChar2 is Result VarChar2(40);Begin --已过期 If InDT <= 0 Then Result := '已过期'; Else --核算 天 小 阅读全文

摘要： procedure TForm1.lv1DragDrop(Sender, Source: TObject; X, Y: Integer);var aItem, bItem: TListItem;begin if(Source is TListView) then begin bItem := (So 阅读全文

摘要： procedure TForm1.Button6Click(Sender: TObject);var i:Integer;str:string;begin i := 255; ShowMessage(IntToHex(i,8)); ShowMessage(Format('%.10x',[i])); 阅读全文

摘要： 1.通过函数转 function Base64ToStr1(const Base64: string): string;var I, J, K, Len, Len1: Integer; B4: array[0..3] of Byte;begin if Base64 = '' then begin R 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);begin cbb1.Items.Clear; cbb1.Items.AddObject('a',TObject(NewStr('a1'))); cbb1.Items.AddObject('b',TObje 阅读全文