Delphi

Delphi - 拆分行(程序无响应),不分割文件大小(TTHREAD)

希望大家做得很好。 我只有一个问题,在Delphi编程... 我有一个备忘录,加载一个文件.txt,它包含大的行,如50,000Lines .... 所以我想将线分成5000线,然后将它们加载到一个新的备忘录中。例如对于第一次拆分的 ,它将在新的文件文本上分割5000行,然后将其加载到新的备忘录上,加载(删除5000的文件)之后,当然这个大LINES将是45000 第二次拆分将从 ..
发布时间:2017-05-01 21:11:20 Delphi

Delphi程序上复制了一个csv列

我正在使用Delphi,我需要以编程方式复制一个列,它是.csv文件中的数据。 我需要做的这个确切的任务是: / p> 1。加载csv内容(可以是stringlist或其他) 2.复制列4(和它的数据) 3.在列2的位置添加一个新列,并添加这个复制的列 4.保存 这是Delphi能做的事吗?如果有的话,任何人都可以启动或指导如何做到这一点? 解决方案 创建 ..
发布时间:2017-05-01 21:10:16 Delphi

if语句检查字符串

所以我试图确定两个不同的字符串是否与 如果DerobModel.ConstructionCount> 22 then begin for i:= 22 to DerobModel.ConstructionCount-1 do begin ConstructionName [i]:= DerobModel.Constructions [i] .Name; ShowMessa ..
发布时间:2017-05-01 21:10:03 Delphi

合并油漆导致线程位图绘制

我想加快绘制一个位图,因此我设计了一个类,如 BITMAP THREAD CLASS 。一旦部分图像的个人绘画完成,我想合并Thread.done过程中的所有图像 我的代码像这样 type TbmpthreadForm = class(TForm) ..... THreadImage:TImage; procedure Button_threadstartClick(Sen ..
发布时间:2017-05-01 21:09:51 Delphi

重建丢失的代码(InArray) - cont

我从另一位开发人员的代码中缺少一个单元。 我已经能够破译一些,这里的专家帮助我与他人, / p> 我需要一个名为InArray的布尔函数。 我知道它需要一个TIntArray和整数,并返回一个布尔值无论整数是否存在于TIntArray中 TIntArray = Integer数组; 函数InArray(A:TIntArray; n:整数):Boolean; ..
发布时间:2017-05-01 21:09:38 Delphi

使用Indy的IDTCPClient从响应流中获取XML

这个问题直接关系到: 使用Indy的IDTCPClient从响应流中获取HTML 我只需要一个get函数来检索XML 函数TMyConnector.GETXML(aRawHeader:String):String; 使用idHTTP组件,我可以执行以下 HTTP.Request.ContentType:='text / xml'; 我 ..
发布时间:2017-05-01 21:09:26 Delphi

通过Delphi Excecute Excel vba代码

嗨,我的问题是如何通过Delphi 7程序执行Excel vba代码? 我在互联网上发现了一些文章,没有描述清楚。 其中一个是使用OLE: 文章 如果您能给我答案的示例代码,我将不胜感激。 主要的问题是我不能低估代码,我需要一些帮助。 该变量没有被声明,我不会没有它会工作。 提前感谢 单位宏; 接口 使用 Windows,消息,SysUtils,变体,类,图形, ..
发布时间:2017-05-01 21:08:37 Delphi

如何执行超出屏幕限制的外部程序,而不在任务栏中显示?

我想要执行一个外部程序,执行后,系统仍然可见,用户不可见。而且,仍然希望执行后,外部程序的图标不会显示在任务栏上。 最终目标是使用获取外部程序的屏幕截图PrintWindow api,并发送鼠标/键盘输入与 SendMessage / PostMessage 。 所以,如何执行外部程序超出屏幕限制(独立于屏幕/显示器分辨率,而不显示任务栏中的图标? 例如: 解决方案 首先 ..
发布时间:2017-05-01 21:07:40 Delphi

以相反的顺序聚焦单元格

在DBGRID中以相反的顺序聚焦单元格 如果按下按键将Tab键的动作反转为如何更改击键操作,如下: Tab键---> Shift Tab; Shift Tab ---> Tab键; 解决方案 以下代码没有一个OnKeyUp处理程序,会执行您想要的 键入 TMyDBGrid = class(TDBGrid); 程序TForm1.DBGrid1KeyDown(发 ..
发布时间:2017-05-01 21:07:07 Delphi

Delphi:TThreadList有时锁定程序

有时这个功能锁定我的程序,它会冻结,直到我关闭它。 这里有什么问题? function del_from_list(id:string):boolean; var i:integer; begin 结果:= True; 尝试 with global_list.LockList do begin for i:= 0 to Count-1 do begin 如果T ..
发布时间:2017-05-01 21:06:54 Delphi

Delphi中的AccessViolationException - 不可能(检查,令人难以置信的...)

德尔福XE。 Windows 7。 有一个函数(请参阅下面的代码)或 I:= 0 导致一个大项目的AV错误。在新项目中没有相同功能的错误!我删除了大项目中的所有内容,我只留下一个按钮和该功能。它仍然导致错误... 一行错误: 如果ISAeroEnabled然后//这行是一个原因 i:= 0; //或这行 我设置了断点(我检查了整个函数,我设置了断点在 EACH L ..
发布时间:2017-05-01 21:06:24 Delphi

德尔福改变字符串中的字符串 - 错误的行为 - XE3

我在编码/解码器上编写代码,现在看不出奇怪的行为超过2天...我希望有人能够理解和解释为什么会发生,无论如何是... 这是主要代码,它是做什么的(我删除了表单的信息,按钮等,只是核心,以避免垃圾) $单位编码器; b $ b // 接口 // var Enc:array [1..71]的记录 Char:Char; Encr:string; Enc:数组[1 ..
发布时间:2017-05-01 21:06:12 Delphi

德尔福,如何使形状停止移动

我正在努力使一个形状向另一个使用2个形状和2个定时器,但我真的不能似乎。我在想: 在开始的时候,我将使形状1计算形状2的距离,然后移向它,这是我做的,我也有添加评论来帮助您了解代码,因为这有点令人困惑: procedure TForm1.Timer1Timer(Sender:TObject) ; begin timer1.Interval:= 100; // set inte ..
发布时间:2017-05-01 21:06:00 Delphi

如何停止DrawText从下划线替换字符?

我正在使用 DrawText 将文本绘制到DBGrid画布上。文本来自数据库。但是当字符串包含&符号(&)时,它将它视为 alt 快捷方式并加下划线。 例如,应该是什么 羊毛&丝绸 卷起 羊毛_Silk 如何阻止这种行为? 解决方案 使用 DT_NOPREFIX 标志。如果你知道你不想要任何前缀,那么这就是前进的道路。 如果你想用两个前缀和&符号来绘制文 ..
发布时间:2017-05-01 21:05:47 Delphi

sql和fifo简单选择

我有这样的数据: Id价格数量 1 1000 4 4000 2 1000 4.5 4500 3 1000 5 5000 我会要求数据库行的价格是例如2500的总和。 我希望回答这个问题: Id价格数量 1 1000 4 4000 2 1000 4.5 4500 3 500 5 2500 我可以使用while循环,但 ..
发布时间:2017-05-01 21:05:35 Delphi

用Delphi获取全文Feed

我正在开发一个Delphi程序,通过组件Indy idHTTP ..读取Feed的来源,但Feed不显示完整,仅显示其摘要,我的意思是Feed不显示“content”标签。 我认为可以获取全文的Feed,因为我在互联网上找到了一些网站(如 http://fulltextrssfeed.com/ ),即使是仅显示摘要的Feed也可以显示全文本Feed。 如何通过Delphi读取全文本Fe ..
发布时间:2017-04-28 21:40:15 Delphi

当类注册在该类构造函数中完成时,不会调用类构造函数

我的目标是:我正在写一个简单的依赖注入/反转控制系统,该控件系统基于一个带有各自的实现者类的抽象类引用的TDictionary。 p> 避免按类型直接实例化(显然)。 在dpr中包含一个类单元应该足够让它注册并可通过di / ioc系统进行选择和实例化。 仅在实现部分中声明具体的实现类。 使用类构造函数而不是初始化部分。 Btw,我知道使用类构造函数智能链接的优势在于希望将一个单 ..
发布时间:2017-04-28 21:39:41 Delphi