摘要：
PDF文件转存为文本，多了一堆不需要的空格，写个小程序处理一下，没逻辑，直接上代码。 delphi用的是XE11.3 unit UnitSmallMain; interface uses System.SysUtils, System.Types, System.UITypes, System.Cl 阅读全文
摘要：
2023 January February March Mo Tu We Th Fr Sa Su Mo Tu We Th Fr Sa Su Mo Tu We Th Fr Sa Su 1 1 2 3 4 5 1 2 3 4 5 2 3 4 5 6 7 8 6 7 8 9 10 11 12 6 7 8 阅读全文
摘要：
新手学pythonfor v in range(1,10): for m in range(1,v+1): if v==m : print("%dX%d=%d" % (v, m, v * m)) #换行 else: print("%dX%d=%d" % (v, m, v * m), end=' ') 阅读全文
摘要：
在Delphi的日常开发中，确实经常需要截取字符串来满足不同的需求。Delphi自身提供了一些字符串处理函数，但有时候这些函数可能不够用或者使用起来不够方便。下面我将分享一个自己在Delphi开发中用于截取字符串的进一步封装的函数。 ///////////////////////////////// 阅读全文
摘要：
procedure TForm1.dolist(AJob: PQJob); var a:TStringList; begin a:=TStringList(AJob.Data); ShowMessage(a.Text); end ;procedure TForm1.Button2Click(Send 阅读全文
摘要：
1 {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 2 3 Author: Fran鏾is PIETTE 4 Object: Demo program to ... 阅读全文
摘要：
Delphi软件定制价格说明:本信息的发布，定价属于一口价，但具体程序开发的定价是依据编程工作量的大小而定。如果您不想花费太大的代价找专业软件开发公司，那么建议您与我们联系.订做软件交易流程如下:1.您大概描述下需求,我看看能否接下该单2.需要您写好详细的程序要求文档发给我3.我根据要求文档明确一下细节,并给出报价4.您按照报价拍下相应金额的商品并付款5.我按照程序要求文档开工6.完工后将试验版发给您检验7.您到淘宝收货并确认付款。订做软件需要注意的问题1.请尽可能在程序要求中明确细节,程序开工后,未明确的细节以程序为准2.程序BUG终身免费修改3.一年内对现有(程序要求文档中描述的)功能提供 阅读全文
摘要：
delphi调用外部程序打开文件ShellExecute的各种用法一、利用系统默认的邮件收发器发送电子邮件Uses..., ShellAPI;VarlpHwnd: HWND;lpOperation, lpFile, lpParameters, lpDirectory: String;BeginlpHwnd:= GetDesktopWindow();lpOperation:= 'open';lpFile:= 'mailto:' + 'Maple119@263.net' + '?' //主邮件地址后以'?'结束+ &# 阅读全文
摘要：
关于文件操作集锦 取得该快捷方式的指向EXE关键词:快捷方式 LNK unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;procedure Button1Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;va. 阅读全文
摘要：
用URLDownloadToFile下载文件，如何用进度条跟踪下载进度1：OnDownloadProgress2：可有否具体的例子。3：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtActns, ComCtrls;typeTForm1 = class(TForm)ProgressBar1: TProgressBar;Label1: TLabel;Button1: TButton;procedure Fo 阅读全文