随笔分类 - Delphi学习
摘要：开源地址：https://github.com/sempare/sempare-delphi-template-engine program Example;uses Sempare.Template;type TInformation = record name: string; favourit
阅读全文
摘要：Delphi:cxGrid的使用方法 1. 去掉cxgrid中抬头的box ,在tableview1的ptionsview的groupbybox=false;2. 在GRID footer 中加入sum(列), tableview1的optionsview的footer=ture然后在cxGRid1
阅读全文
摘要：function MyCreateDir(const Path: String): Boolean; begin // 建目录 if DirectoryExists(Path) then Result := True else Result := ForceDirectories(Path); en
阅读全文
摘要：uses AnsiStrings; Function JiaMi(Src:String; Key:String):String; var KeyLen :Integer; KeyPos :Integer; offset :Integer; dest :String; SrcPos :Integer;
阅读全文
摘要：在Delphi xe中可以直接使用 TIdHashSHA256 来实现SHA256算法，代码如下uses IdHashSHA, IdSSLOpenSSLHeaders; var SHA256 : TIdHashSHA256; SHA256 := TIdHashSHA256.Create; Passw
阅读全文
摘要：以下程序可直接用，拷贝就可以了，希望可以起到抛砖引玉的作用。function StrDecrypt(s: string; key: word): string;var i:byte;const fc1=2; fc2=3;begin //result[0]:=s[0]; setlength(resul
阅读全文
摘要：一 前言 对于正则表达式，相信很多人都知道，但是很多人的第一感觉就是难学，因为看第一眼时，觉得完全没有规律可寻，而且全是一堆各种各样的特殊符号，完全不知所云。 其实只是对正则不了解而以，了解了你就会发现，原来就这样啊正则所用的相关字符其实不多，也不难记，更不难懂，唯一难的就是组合起来之后，可读性比较
阅读全文
摘要：需要引用单元 EncdDecd ，Xe验证通过。 function EncodeFile(const FileName: string): AnsiString; var stream: TMemoryStream; begin stream := TMemoryStream.Create; try
阅读全文
摘要：最直接的方法当然是把Image的画布以图片的形式输出，这样既不用考虑画布上信息之间的相对位置，操作又简单。不过这样操作有个硬伤：图片失真。因为打印机分辨率的关系，需要在打印时将画布上的信息放大，才能匹配打印机的画布，这样难免会造成文字信息的拉伸变形。而且，使用图片打印的话，需要传输到打印机的数据就会
阅读全文
摘要：function TfrmLabelPages.PwdImg(img: Timage): string;var I,j,k: Integer; vPoint: TPoint; vLeft: Integer; arrStr:array [1..36]of string ; strResult: str
阅读全文
摘要：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm
阅读全文
摘要：units1;interfaceuses Windows, Messages, SysUtils, Graphics, Controls, Forms, StdCtrls, Classes;type TForm1 = class(TForm) Button1: TButton; Memo1: TMe
阅读全文
摘要：function TForm1.DrawPicToStrSave(strFarImg1, strFont1,strSavePath: string): TBitMap;varjp1, jp: TJPEGImage;bmp_t: TBitmap;begintryjp1 := TJPEGImage.Cr
阅读全文
摘要：以 JPEG 图片为例，以下代码演示了如何将一个 JPEG 图片保存为纯文本形式，并将其以图片形式读回并显示。保存 TXT：function TForm1.JpegToText(AFileName:string; SaveFile: Boolean; TxtFileName: string): st
阅读全文
摘要：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm
阅读全文
摘要：unit Unit2;interfaceusesClasses,SysUtils,Dialogs,Windows;typeIthreads = class(TThread)private{ Private declarations }awer:integer;protectedprocedure E
阅读全文
摘要：在实际编程中，经常会用到Buffer，当string作为Buffer传值时需要注意的是 1， string的值的起始索引是1，千万记住！ 2， 有时候需要先告诉系统去开辟出内存空间，用SetLength函数。 如下代码，示范了再Move、 WriteBuffer、 ReadBuffer时候的用法：
阅读全文
摘要：一、URL简介 URL是网页的地址，比如 http://www.shanhaiMy.com。Web 浏览器通过 URL 从 web 服务器请求页面。 由于URL字符串常常会包含非ASCII字符，URL在传输过程中，往往出现错误。因此，可以将非字符串字符，让一些特殊ASCII字符组合，代
阅读全文
摘要：1、在程序创建的时候或者窗体显示的时候注册热键 begin // 原子【mHotKey01】 mHotKey01 := GlobalAddAtom('xiaoyin_HotKey_CTRL_F1') - $C000; //注册热键【Ctrl + F1】 RegisterHotKey(Handle,
阅读全文
摘要：function TForm1.GetHWndByPID(const hPID: THandle): THandle; type PEnumInfo = ^TEnumInfo; TEnumInfo = record ProcessID: DWORD; HWND: THandle; end; func
阅读全文
浙公网安备 33010602011771号