随笔分类 - Delphi
摘要：1 //根据dxBarManager 的菜单生成 TdxNavBar菜单 2 procedure TfrmMain.GenerateNavBarFromBarManager(dxBarManagerBar: TdxBar; dxNavBar: 3 TdxNavBar); 4 var 5 i, j:
阅读全文
摘要：因为要使用richedit 显示不同颜色的日志所以要动态的设置新插入行的颜色 1 frmServerMain.redtLog.Lines.BeginUpdate; 2 // 选择文本所在的位置 3 4 //首先要清除选择行 5 6 1 redtLog.SelStart := frmServerMai
阅读全文
摘要：cxgrid是自带选择框的表格，开启 设置如下。 然后 后台获取 前端选中的记录字段值。用下面语句。 for I := 0 to Gview1.DataController.GetSelectedCount-1 do begin // 第一个值选中的 行 。 第二个值要获取值的字段索引 从 0 开始
阅读全文
摘要：GExperts是一组通过扩展集成开发环境（IDE）来提高Delphi和C++ Builer程序员工作效率的工具。是一款开源的IDE扩展专家，由于去外网下载GExperts非常的麻烦，这里直接提供了Delphi7和Delphi11.1下的GExperts安装包，并连带最新源码一起打包，方便大家使用学
阅读全文
摘要：由于Google的Android SDK不再允许其他程序分发。Delphi11安装后，默认是没有Android安卓SDK的，在默认安装路径的情况下，在C:\Users\Public\Documents\Embarcadero\Studio\22.0\CatalogRepository\Android
阅读全文
摘要：今天上午才遇到的一个问题，Delphi在debug模式下运行好好的，切换到release模式下竟然无法正确返回？ 把工程设置中的 Optimization 中的勾去掉再编译， 这下Release模式下运行没有问题了。 当然这里只记录了这一种情况，大家如果遇到跟我一样问题的时候不妨试试，看能不能解决问
阅读全文
摘要：一： 日志发送到远程syslog服务器： var AWriter := TQLogSocketWriter.Create;AWriter.ServerHost := 127.0.0.1;//远程服务器地址AWriter.ServerPort := 514; //远程服务器端口AWriter.UseT
阅读全文
摘要：AutoGenerateValue 值要设置为arNone。如果设置成arDefault或是arAutoInc 时会自动生成数据提交到中间件。 UpdateMode要设置为upWhereKeyOnly，并在cdsRecord的主键（或其他不被修改的字段）的ProviderFlags的pfInKey设
阅读全文
摘要：delphi xe10 提示没有定义DecimalSeparator 的 解决方法 只需要把DecimalSeparator前加上FormatSettings变成 FormatSettings.DecimalSeparator；如果提示没有定义ShortTimeFormat，DateSeparato
阅读全文
摘要：今天看到电信公司开始推广使用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
阅读全文
摘要：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 之间的数字，且只能输入一个小数点，按下其他键时无效。}
阅读全文
摘要：1 var 2 aStream: TMemoryStream; 3 LDataSet: TFDDataSet; // 申请一个FD数据集 4 MyStream: Tmemorystream; 5 MyJPEG: TJpegImage; 6 MyPng: TPngImage; 7 begin 8 in
阅读全文
摘要：Delphi TField.ProviderFlags 属性 单元：DB 说明：指定应用更新时提供程序如何使用字段值。 语法： 1 property ProviderFlags: TProviderFlags; 描述：ProviderFlags仅与提供给提供程序组件抯事件处理程序的数据包中出现的字段
阅读全文
摘要：req := CoXMLHTTP.Create; try req.open('Post', szUrl, False, EmptyParam, EmptyParam); //设置post必要参数 req.setRequestHeader('UserAgent','Mozilla/5.0'); req
阅读全文
摘要：frxBarcod, frxBarcode2D; 这个是添加了二维码造成的。引用相应的单元就可以了。 增加这个控件frxBarCodeObject
阅读全文
