10 天山映雪

尚未进行身份认证

我要认证

暂无相关简介

等级
TA的排名 44w+

一个数据集里面去除重复的值,并对值相加

非源码。提供思路TStringList//FilessList:=TStringList.Create;FilessList.Sorted:=True;FilessList.Duplicates:=dupIgnore;for 循环 if FilessList.Values[szname]='' then FilessLis...

2019-10-30 14:45:16

判断一个字符串是否有中文

S:='123'; if length(S)-length(widestring(S)) > 0 then begin ShowMessage('有中文'); end;

2019-10-28 09:40:53

读取文件夹下 多层级的 文件list

function TCopyNetwork.FileSearch(PathName:string):TStringList;var F : TSearchRec; Found : Boolean;begin ChDir(PathName); Found := (FindFirst('*.*', faAnyFile, F) = 0); while Found do beg...

2019-10-25 10:56:31

有关 delphi7读取 excel 报错EoleException with message '未找到提供程序,该程序可能未能正确安装' 解决方式

安装AccessDatabaseEngine.exe 可以从网上搜索 安装。如果安装的过程中报错。error 1935 an error occurred during the install of 。。。如安装过程中报错,则应该是Miscrosoft .Net Frame work 未能安装。或者是有问题导致的。直接卸掉重新安装一个。...

2019-08-16 14:23:54

windows 无法启动redis 服务(位于本地计算机上)错误1053 服务没有及时响应启动或控制请求

安装redis 的时候,老是报错。结果竟然是修改redis.windows-service.cnf 的时候,requirepass 12345 前面不能有空格。

2019-08-13 11:54:07

关于 取一个字符在另一个字符串中最后一次出现的位置 的 德尔菲法

function TForm1.ReversePos(SubStr, S: String): Integer;var i : Integer;begin i := Pos(ReverseString(SubStr), ReverseString(S)); if i>0 then i := Length(S)- i- Length(SubStr)+2; Result :...

2019-08-09 11:39:42

根据循环的编号,保持 位数,如果不足,则前面补齐为0 以001 三位数为例

Format('%.3d',[i]);i为循环的数值。 3为要求的位数,如果不足则前面补齐为0

2019-07-29 09:23:03

DBGridEh 单击 单元格内容可复制

单击 DBGridEh 点击 单元格的内容,可拷贝 单元格的内容。修改 一个option的属性。则 可拷贝单元格的内容。

2019-07-26 18:15:52

有关 RichEdit line insertion error 报错的问题解答

这个问题 主要是 特殊字符的原因。当初用RichEdit 也是因为 字符长度的问题,用DBText 老是 因为 字符长度的问题 老是有? 当然这个地方也可以处理。但是比较麻烦。所以 直接用RIchEdit但是有RichEdit line insertion error 的问题。直接在RichEdit属性中设置将 Font 属性的 字体Name 设置为 宋体。问题就解决了。...

2019-07-26 17:18:03
勋章 我的勋章
    暂无奖章