delphi中间件

摘要： var AView: TcxCustomGridView; begin AView := .CreateView(TcxGridDBBandedTableView); TcxGridDBBandedTableView(AView).DataController.DataSource := ; TcxGridDBBandedTableView(AView).Bands.Add; with TcxGridDBBandedTableView(AView).Bands.Add do begin Visible := False; FixedKind := fkLeft; end; TcxGridDBB 阅读全文

摘要： //恢复布局 IniFileName := ExtractFilePath(Application.ExeName) + 'Layout/' + Self.Name + '.ini'; if FileExists(IniFileName) then Self.tvResult.RestoreFromIniFile(IniFileName) //从布局文件中恢复 else begin Self.tvResult.BeginUpdate; for i := 0 to Self.tvResult.ItemCount - 1 do Self.tvResult.Items 阅读全文

摘要： 在Footer的第一列显示[合计:] 加一个Summary项,Column设为Grid的第一列,Kind设为skNone 在该Summary项的OnGetText事件中,输入: procedure TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText( Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: String); begin AText := '合计: 阅读全文

摘要： 下面例举一个典型的模板：1.今天是____年__月__日，农历_______，距离______还有_____天。今天节目的主要内容有：_____、_____、______。下面请听详细内容。2. ____在钓鱼台国宾馆亲切会见了____，双方进行了亲切友好的会谈。____高度赞赏了____,并对____一贯坚持“一个中国”的原则表示感谢。3. ____出访____，会见了____，_______高度赞扬中__两国关系，对____表示欢迎，并强烈谴责了___国家____的做法。4. ______会议在北京隆重召开。_____致开幕词。____以____票支持、0票反对、1票弃权通过一项____决 阅读全文

摘要： uses ehlibado;改良dbgrideh的文字过滤，原先过虑需要填%字符串%，修改后，直接填入所要搜索的字符串即可，相关代码： procedure TSTColumnFilterEh.InternalSetExpressionStr(const Value: String); procedure SetLookupKeyValues(var v: Variant); var i: Integer; begin if VarIsArray(Expression.Operand1) then for i := VarArrayLowBound(Expression.Operand1, 1) 阅读全文

摘要： 在www.delphifans.com(delphi园地)发布脚本开发框架代码 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);varRPrinter:TextFile;i:integer;begin{设置打印机}Assignfile(RPrinter,'lpt1');{准备写文件}Rewrite(RPrinter);{打印}for i := 0 to memo1.lines.Count - 1 doWriteln(RPrinter,memo1.lines[i]);{向后倒纸}Writeln(RPrinter,chr($b)+chr(27)+'K'+chr(40));{向前进纸}Writeln( 阅读全文

摘要： Last4Str:string; //全局变量function NotRepertStr:string;var n,w,i:integer; s:string;begins:='';if Last4Str='' then Last4Str:='0000';n:=strtoint(Last4Str)+1;if n>9999 then n:=0;w:=Length(inttostr(n)); for i:=1 to 4-w do s:=s+'0';Last4Str:=s+inttostr(n);result:=FormatDat 阅读全文

摘要： 1、控制POS机的客户显示屏procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);//Moneey_Port 顾显接口Com1 or Com2 Money_String 顾显显示的内容var PrnFileName:TextFile;begin Assignfile(PrnFileName,Money_Port); printer.Canvas.Font.Name:='宋体'; printer.Canvas.Font.Size:=8; printer.Canvas.Font.Charset:=G 阅读全文

摘要： 经常有人提问：说自己的项目是由许多DLL打包方式组织的，各个DLL之间的对象如何共享访问？这其实很简单：只要共享对象创建后，把它的指针保存进一个大家都可以访问 的地方，需要的时候就去取。我说用INI文件暂存共享对象指针也行。为了证明特别写了几行代码：uses inifiles;procedure TForm1.Button2Click(Sender: TObject);var ini: tinifile; h: integer;begin ini := tinifile.Create(extractfilepath(application.ExeName)+'me.ini'); 阅读全文