摘要：
unit uBaseForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TPoint = record x: Integer; y: Integer; end; TMinMaxInfo = record ptReserved: TPoint; ptMaxSize: TPoint; ptMaxPosition: TPoint; ptMinTrackSize: TPoint; ptMaxTrackSize: TPoint; end; TW 阅读全文
摘要：
function TForm15.CreateBand(View: TcxGridDBBandedTableView; BandCaption, ParentBandCaption: String): TcxGridBand;var band: TcxGridBand;begin Result :=... 阅读全文
摘要：
type TMYDBControler = class(TcxDBTreeListDataController);procedure TForm15.Button1Click(Sender: TObject);var AParentKeyValue: Variant;begin AParentKeyValue := TMYDBControler(cxDBTreeList1.DataController).DBParentField.Value; ADOTable1.Append; TMYDBControler(cxDBTreeList1.DataController).DBParentFiel 阅读全文
摘要：
表格内嵌编辑控件 阅读全文
摘要：
procedure Import(SourceDS, DestDS: Tadoquery);var sFileName, sTableName: string; sl: TStringList; i: integer; conn: TADOConnection; dialog: TOpenDialog;begin dialog := TOpenDialog.Create(Application); if not dialog.Execute then Exit; try sFileName := dialog.FileName; conn := TADOConnection.Create(.. 阅读全文
摘要：
uses Printers txtPrinterName.Items.Assign(Printer.Printers); frxReport1.LoadFromFile(AppConfig.ReportPath + ReportId + '.fr3'); frxReport1.PrintOptions.Printer := txtPrinterName.Text; frxReport1.PrintOptions.ShowDialog := False; frxReport1.PrintOptions.Copies := StrToInt(txtCopies.Text); frx 阅读全文
摘要：
unit uSelect;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, FindDM, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, DB;type TSelect = class(TForm) TFindFrames1: TFindFrames; DBGrid1: TDBGrid; Panel1: TPanel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; DataSour 阅读全文
摘要：
unit FindDM;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ExtCtrls, jpeg;type TFindFrames = class(TFrame) edtValue: TEdit; cbFields: TComboBox; Label1: TLabel; Label2: TLabel; Timer: TTimer; procedure edtValueChange(Sender: TObject); 阅读全文
摘要：
对于使用DLL包方式组织的项目，很多人都知道如果BUILD WITH RUNTIME PACKAGE不勾选上，会有很多的问题。所以一般会将所有的EXE和DLL项目的BUILD WITH RUNTIME PACKAGE勾选上。每当这时候，你以为万事大吉了。兴奋地编译项目，满怀期待地运行，往往一运行却报错：a class named Txxx exists。。。。。。，遇到这个问题的时候，很多人傻眼了，根本不知道该如何解决。首先分析一下出现这个错误的原因：BUILD WITH RUNTIME PACKAGE勾选上意味着，整个项目都将使用唯一的一份VCL类，编译器会通过检查类名来判断该类是否已经创建 阅读全文
摘要：
vars:string;p:pchar;a:array[1..20] of char;那么三者之间的转换如下：1、字符串到PChar p:=PChar(s);2、PChar到字符串 s:=p;3、PChar到字符数组 StrCopy(@a,p);4、字符数组到PChar PChar(@a);5、字符串与字符数组之间的转换就只有通过PChar来中转了。例如下面这个例子：procedure TForm1.btn1Click(Sender: TObject);varstr:array[1..10] of char;beginStrCopy(@str,PChar(mmo1.Text));mmo... 阅读全文