Delphi - 随笔分类(第3页) - zyb2016

日期问题处理，获取，对比，转换

摘要：DateUtils时间单元，非常有用。记得引用这个单元，不然不能用。CompareDate 比较两个日期时间值日期部分的大小CompareDateTime 比较两个日期时间值的大小CompareTime 比较两个日期时间值时间部分的大小DateOf 去除日期时间值的时间部分DateTimeToJu 阅读全文

posted @ 2019-06-25 17:26 zyb2016 阅读(278) 评论(0) 推荐(0)

Delphi DBGrid类控件定位到某一行，并更改为选中状态。

摘要：grDirectory.DataSource.DataSet.Locate('StepNo', StrToInt(stepList[i]), []); grDirectory.ClearSelection; grDirectory.FocusedNode.Selected := True; 阅读全文

posted @ 2019-06-21 13:32 zyb2016 阅读(1368) 评论(0) 推荐(0)

Delphi中常用字符串处理函数

摘要：1.copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def' 2.concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串( 阅读全文

posted @ 2019-06-21 13:30 zyb2016 阅读(1373) 评论(0) 推荐(0)

ListView的DrawSubItem时间添加边框，字体变粗问题

摘要：procedure TFrmrdp.ListView1AdvancedCustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: integer; State: TCustomDrawState; Stage: TCust 阅读全文

posted @ 2019-06-21 13:22 zyb2016 阅读(375) 评论(0) 推荐(0)

解决d7在更高版本上运行乱码问题，或者是调用更高版本的dll

摘要：将String类型改成WideString类型即可阅读全文

posted @ 2019-06-20 09:06 zyb2016 阅读(242) 评论(0) 推荐(0)

使用Indy解决Could not load SSL Library错误

摘要：测试平台：DelphiXE7 + Indy 10.6.0.5169 + Win7 64bit 步骤： 1. SSL下载版本：openssl-1.0.1j-i386-win32 可去http://yunpan.cn/cAWTYZ3VMHv36 提取码 3551进行下载根据开发的应用平台选择相应的库文阅读全文

posted @ 2019-06-20 09:03 zyb2016 阅读(4749) 评论(0) 推荐(0)

局域网映射硬盘

摘要：net use V: \\123.207.5.19\共享$ Wojiushiwo1314.. /USER:Administrator 阅读全文

posted @ 2019-06-19 16:08 zyb2016 阅读(301) 评论(0) 推荐(0)

delphi http请求用到的编码方式

摘要：uses HttpEncode； HttpEncode(AnsiToUtf8('***')) 阅读全文

posted @ 2019-06-19 16:06 zyb2016 阅读(420) 评论(0) 推荐(0)

delphi base64编码

摘要：需要uses IdCoderMIME； function TForm1.Base64E(Path: string): string;var filepath: string; filestream: TFileStream; EncoderMIME: TIdEncoderMIME; encode_r 阅读全文

posted @ 2019-06-19 16:05 zyb2016 阅读(570) 评论(0) 推荐(0)

delphi日期GMT格式

摘要：function TForm1.DateTimeToGMT(const DateTime: TDateTime): string;const WEEK: array[1..7] of PChar = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'); 阅读全文

posted @ 2019-06-19 16:04 zyb2016 阅读(443) 评论(0) 推荐(0)

delphi中json转dataset

摘要：unit uJSONDB; interface uses SysUtils, Classes, Variants, DB, DBClient, SuperObject, Dialogs; type TJSONDB = class private class function getJsonField 阅读全文

posted @ 2019-06-19 16:03 zyb2016 阅读(1823) 评论(0) 推荐(0)

Delphi unigui控件unidbgrid导出excel，已经测试

该文被密码保护。

posted @ 2019-06-19 15:49 zyb2016 阅读(0) 评论(0) 推荐(0)

delphi根据Excel自动填写数据

该文被密码保护。

posted @ 2019-06-19 15:45 zyb2016 阅读(0) 评论(0) 推荐(0)

Delphi最大化窗体根据窗体名字

该文被密码保护。

posted @ 2019-06-19 15:43 zyb2016 阅读(0) 评论(0) 推荐(0)

delphi10.3使用idhttp控件post提交信息，包含header，body

该文被密码保护。

posted @ 2019-06-19 15:42 zyb2016 阅读(1) 评论(0) 推荐(0)

Idhttp控件https post的时候会出现接收方识别不了或者是乱码的情况，解决如下

该文被密码保护。

posted @ 2019-06-19 15:39 zyb2016 阅读(0) 评论(0) 推荐(0)

获取QQ状态接口开发示例

摘要：unit checkqqstatus; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) edt1: TEdit; btn1: TButton... 阅读全文

posted @ 2016-12-02 17:21 zyb2016 阅读(546) 评论(0) 推荐(0)

JSON解析

摘要：//需要引入superobject单元，内容太多请联系本人获取 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseC 阅读全文

posted @ 2016-12-02 17:17 zyb2016 阅读(177) 评论(0) 推荐(0)

获取选中行中的数据提取并且保存到txt

摘要：function getchcount(query: TADOQuery): Integer;var i:integer;begin i:=0; with Query do begin Query.First; while not Eof do begin if Query.FieldByName( 阅读全文

posted @ 2016-11-23 10:19 zyb2016 阅读(168) 评论(0) 推荐(0)

传入sql语句，执行完提取内容赋值到控件上

摘要：class procedure DBTools.FillStrings(ComboBoxEh: TDBComboBoxEh; sql: string; Default: Boolean = False);var Q2: TADOQuery;begin ComboBoxEh.KeyItems.Clea 阅读全文

posted @ 2016-11-18 13:58 zyb2016 阅读(176) 评论(0) 推荐(0)

随笔分类 - Delphi