API函数 函数来源:FUNCTION ulong ShowScrollBar(ulong hwnd,ulong wBar,ulong bShow) LIBRARY "user32.dll" constant long SB_HORZ constant long SB_VERT constant long SB_BOTH ShowScrollBar(Handle(Memo1),SB_HORZ,);););//隐藏所有滚动条  例如: ShowScrollBar(self.handle,

这是一道水题,作为没有货的水货楼主如是说. 题意:已知一个数组nums {a1,a2,a3,.....,an}(其中0<ai <=1000(1<=k<=n, n<=20))和一个数S c1a1c2a2c3a3......cnan = S, 其中ci(1<=i<=n)可以在加号和减号之中任选. 求有多少种{c1,c2,c3,...,cn}的排列能使上述等式成立. 例如: 输入:nums is [1, 1, 1, 1, 1], S is 3. 输出 : 5符合要求5种

论DELPHI三层的数据序列格式的变化 要窥三层的数据序列格式,我们可以通过观察DELPHI官方的客户端内存表. 早先流行的是TClientDataSet,它的Data和Delta属性的数据类型都是:OleVariant. OleVariant其实是微软公司为COM和COM+战略定义的统一的数据序列格式. 早年DELPHI的三层架构就是建立在COM的基础之上的,数据序列自然也就使用OleVariant. 随着软件COM战略的失败,微软公司已经放弃COM战略,现在改为.NET战略了. DELPHI

一直对delphi数据敏感控件很好奇,感觉很神奇.只要简单设置一下,就显示和编辑数据,不用写一行代码. 如果不用数据敏感控件,编辑一个表字段数据并保存,我相信应用如下代码. Table1.edit, Table1.fieldByName (‘***’) .AsString:= ‘***’; //Table1.Next;//在内部如果是edit状态,则调用Post. Table1.Post; 我也相信数据敏感控件从Table端看也应该逃不出以上方法和步骤. 1.  首先,调用edit,使数据集处于

项目需要使用"数据链接属性"对话框来设置ConnectionString,查阅了一些资料,解决办法如下: 1.Delphi 在Delphi中比较简单,步骤如下: 方法1: use ADOConED; ADOConED.EditConnectionString(ADOConnection1); 这样我们就可以使用: ShowMessage(ADOConnection1.ConnectionString) 查看ADOConnection1的ConnectionString了 方法2: AD

一.基础知识简介: 1.包的命名介绍: 包的命名没有规则,但是建议遵守包的命名约定:包的命名与包的版本相关,包的名称前面几个字符通常表示作者或公司名,也可以是控件的一个描述词,后面紧跟的Std表示运行期包,Dsgn表示设计期包,然后是版本号.如:MyDataEditStd60,MyDataEditDsgn60. 2.对象浏览器[Object Inspector]中一个属性感知一类控件的原理: 控件属性的感知只不过是将它的一个属性声明为将要感知的控件类而已,例如要感知Image控件,则:prope

以前控制Memo滚动到底部的操作: SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0); 或者 Memo1.SelLength:=Length(Memo1.Text);   //移动光标 现在不需要这样,delphi xe 10 以上版本已经非常好用了: Memo1.GoToLineEnd; //滚动当前行到光标结尾 Memo1.GoToLineBegin; //滚动到当前行光标开始 Memo1.GoToTextEnd;      //滚动到文本结尾

SPCOMM 接收数据不完整!该如何解决   SPCOMM 接收数据不完整!我作了一个 读取地磅数据的程序,是用spcomm接收的! 总共有五台地磅,其他4台地磅数据读取都正常.但是有一台接收数据的时候,总是接收不到完整的数据,基本上小于100的数据都读不到,比如:地磅上显示1234,但是接收到的数据是12.  地磅上显示60,接收不到数据. 有时地磅上什么东西都没有,但是显示接收到 5 . 这个地磅用原来硬件供应商提供的程序可以正常工作.用我写的程序,偶尔也能正常读到数据(用程序测试了半天,有

  针对串口通信,关于设置数据位长度对通信的影响,如图: 在串口数据通信中,会看到串口参数设置.其中“数据位”设置,共有四档选项,分别是8.7.6.5.那么改变这个参数会对数据的传输有什么影响呢? 我来做个试验,通过示波器观察通信过程,能够分析结果如下: 例如数据位设置为5.那么就相当于规定了每个传输字节只能由5个二进制位来表示,例如:11111,10110,01110等.也就是说,这个RS232口只能发送00000~11111这个范围内的数,如果发送一个比11111还大的数,例如11111+1

自动滚动到最底端scrollUses MSHTML;{$R *.dfm}var  ScrollPos: integer=0;procedure TForm1.Button1Click(Sender: TObject);begin  inc(ScrollPos, 10);  if WebBrowser1.Document <> nil then    (WebBrowser1.Document as IHTMLDocument2).parentWindow.scroll(0,ScrollPos)

虽说报表多又难做,做报表相当容易. 做报表也可以偷懒的,超级实用又省事.只需要做一个报表,这个报表里面包括几乎所有的数据字段,然后将查询到的数据导出到 excel中,利用excel自带的“数据透视”功能,客户只需要点几下鼠标就可以生成自己所需要的报表.通过这种方法,一个报表可以产生n个 报表.通过几行代码可以操纵excel打开“数据透视”功能.冒必要在自己的程序里面做数据透视功能了,要做到excel数据透视那种功能效果, 还是要花费不少时间的. function GetExcelCol(iCol

给定一个字符串,问最少添加多少个字符可以使得这个字符串变成回文串 if(str[i]==str[j]) dp[i][j] = dp[i+1][j-1] else dp[i][j] = min(dp[i][j-1],dp[i+1][j]); 可以看出,dp[i][j] 要么是从dp[i+1][] 这个状态转移而来,要么是从dp[i][j-1]这个状态转移而来(这个只要从小到大枚举j即可) 所以我们可以用滚动数组来压缩空间 #pragma warning(disable:4996) #pragma

数据集数据转换为XML function ReplaceString(AString: string): string; begin Result := StringReplace(AString, '&', '&', [rfReplaceAll]); Result := StringReplace(Result, '>', '>', [rfReplaceAll]); Result := StringReplace(Result, '<', '<', [rfRepl

unit MyClass; uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   VCLCom, StdVcl, DBClient,Grids, DBGrids,ComCtrls, DB, ADODB, Provider; type    TMyDataClass = class   private     FAdoConn : TADoConnection; //Ado数据连接  

unit UMemtableToSql; interface uses SysUtils, Classes, DB, kbmMemTable, Variants, Dialogs, SuperObject; function GenerateDataToInsertSQL(memtbale: TkbmMemTable; UpdateTableName: AnsiString; NoUpdateFields: TStrings): TStringList; //插入数据//不需要更新的字段描述 [

1.添加一个Timer控件,Interval属性设置为20. 2.添加一个Label控件,Name为labMessage. 3.在Timer的OnTimer事件添加如下代码: procedure TForm1.Timer2Timer(Sender: TObject); begin labMessage.Left := labMessage.Left - 1 ; if labMessage.Left + labMessage.Width = 0 then labMessage.Left := Fo

idhttp ss : TStringStream; begin ss := TStringStream.)); { 指定gb2312的中文代码页,或者54936(gb18030)更好些 utf8 对应 65001} try IdHTTP1.Get(CSURL, ss); IdHTTP1.Get(CSURL); Memo1.Text := ss.DataString; finally ss.Free; end; end; procedure TForm1.Button1Click(Sender:

procedure TF_SMP_FT_NEW.RzBitBtn_StartToChangeClick(Sender: TObject); var i, j, ni, nj, iRows, iCol, iCol_flag: Integer; T_DATE, T_LC, T_CP, T_FN, T_Row_Flag, T_sl, Data_Flag, New_Path_Flag, Warning_Flag: string; ApplicationSheet: variant; nArr: ..]

//表名,关键字段名,单条内容的SQL语句,产生新记录的值 function Tfrmdmmain.CopyTbale(const tablename, fileldname, swhere, newfileldstring: string): integer; var sql,sqlstring,sqlvalue,newsqlvalue:string; i:integer; begin sql := 'INSERT INTO [%s] (%s) VALUES(%s)'; self.fykExe