随笔分类 - Delphi
摘要：要删除ClientDataSet中的所有列，可以使用以下代码： procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin // 从最后一列开始删除，以避免索引错误 for i := ClientDataSet1.Fie
阅读全文
摘要：要删除CXGrid中的所有列，可以使用以下代码： procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin // 从最后一列开始删除，以避免索引错误 for i := cxGrid1DBTableView1.Colum
阅读全文
摘要：cxGrid，数据库中存在：GongSiNo，GongSiMc；cxGrid中显示列GongSiMc，Properties指定的是ComBoBox，GongSiMc变化时更新GongSiNo的值并存入数据库。在Properties的OnChange事件中写代码：{ GSNo, GSMc: strin
阅读全文
摘要：或是设置FDquery 的resourceOptions属性
阅读全文
摘要：AutoGenerateValue 值要设置为arNone。如果设置成arDefault或是arAutoInc 时会自动生成数据提交到中间件。 UpdateMode要设置为upWhereKeyOnly，并在cdsRecord的主键（或其他不被修改的字段）的ProviderFlags的pfInKey设
阅读全文
摘要：最近学了一个古老的C++编辑工具，但是使用起来一点也不显得笨重，反而非常灵活，使用了TRzNumericEdit之后，比原来的VCL组件自带的Edit强了很多倍，原来的时候是利用keypress事件进行限制，现在只需要设置TRzNumericEdit的属性即可。TRzNumericEdit默认只能输
阅读全文
摘要：1.不显示中文 工具 编译器选项 显示 去掉底下的复选框（第一个consolas下面） 2， 运行窗口中文乱码方法： 1、工具—编译选项2、在第一个框中填入 -fexec-charset=gbk3、勾选“编译器加入以下命令”4、重新编译一次以后运行。
阅读全文
摘要：delphi xe10 提示没有定义DecimalSeparator 的 解决方法 只需要把DecimalSeparator前加上FormatSettings变成 FormatSettings.DecimalSeparator；如果提示没有定义ShortTimeFormat，DateSeparato
阅读全文
摘要：onexit 事件。 btnSC.PostEditValue //使用post更新一下 cxgrid 在onexit 退出的时候更新一下。 cxGrid1DBBandedTableView1.DataController.Post(); //退出cxgrid时提交一次数据。
阅读全文
摘要：public { Public declarations } procedure SetIniFile(Strtitle, StrName :String;FileName : String); function ReadIniFile(Strtitle, StrName :String): Str
阅读全文
摘要：今天看到电信公司开始推广使用IPv6 我也想着用datasnap中间件也使用IPv6，百度一下都是下面的说法： “有些人说DATASNAP不支持IPv6，只支持IPv4。 这是不正确的。 DATASNAP默认是使用IPv4在ipv6 环境下 怎样用datasnap？Params.Values['Co
阅读全文
摘要：Delphi中的StringReplace函数是SysUtils单元中自带的函数: type TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase); function StringReplace(const S, OldPattern, NewPat
阅读全文
摘要：Dev的表格中编辑捕获EditValueChanged事件技巧：如果需要立即获取到控件编辑的当前值，调用一下GridView的PostEditor( )方法即可。
阅读全文
摘要：1 记得use WinSvc; 2 3 // 4 // 获取某个系统服务的当前状态 5 // 6 // return status code if successful 7 // -1 if not 8 // 9 // return codes: 10 // SERVICE_STOPPED 11 /
阅读全文
摘要：TRzProgressbar组件 需要修改的属性为 ShowPercent 是否显示百分比 TotalParts 定义进图条的长度，这里设置为30 borderOuter定义进度条外框的轮廓，这里设置为fsFlat parentFlag=false;不显示父窗体的颜色； PartsComplete
阅读全文
摘要：1 方法一：不带\ 2 3 GetCurrentDir 4 5 6 7 方法二：带\ 8 9 ExtractFilePath(Application.ExeName); 10 11 方法三：带\ 12 13 ExtractFilePath(paramstr(0)) 14 edit1.Text:=Pa
阅读全文
摘要：当数据中有引号时，TstringList 默认会将 双引号去掉，为避免发生这种情况， 用下面设置解决： lst1.QuoteChar := #0;
阅读全文
摘要：1 {使用这种功能必须使用 OnKeyPress 事件，该事件是在窗体中获得键盘输入的焦点，并且在用户按键时发生。OnKeyPress 事件中有个重要参数：Key。Key 参数为Char 型，它能够获得用户的按键值。下面的代码就只能输入0~9 之间的数字，且只能输入一个小数点，按下其他键时无效。}
阅读全文
浙公网安备 33010602011771号