首页 > TAG信息列表 > Memo1

字符串转换到指定格式的宽字符 - 回复

本例效果图:代码文件:unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     Edit1:

使用DOSCommand-master组件下载视频

1、下载组件。 https://codeload.github.com/TurboPack/DOSCommand/zip/refs/heads/master 2、安装组件。     D:\riocomponents\DOSCommand-master\DOSCommand-master\Packages\Rio\Delphi   D:\riocomponents\DOSCommand-master\DOSCommand-master\Source     3、

使用泛型的 TArray 为动态数组排序

使用泛型的 TArray 为动态数组排序 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton;

泛型排序器 TComparer

泛型排序器 TComparer 测试代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton;

遍历进程并获取进程路径 - 回复 "编程少年" 的问题

遍历进程并获取进程路径 - 回复 "编程少年" 的问题 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo

极快的正整数排序函数

极快的正整数排序函数 实现原理: 对比二进制位.unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedu

给 Memo 排序的函数

给 Memo 排序的函数 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Bu

枚举当前所有的 IE 窗口 - 回复 "混岗" 的问题

枚举当前所有的 IE 窗口 - 回复 "混岗" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/02/28/1085432.html#1247615 致 "混岗" 同学: 你同时提到 IE 中的 "输入框", 没有明白你的意思; 这个例子只是找顶层窗口, IE 的 "输入框" 是 IE 窗口的子窗口, 需要在此

把指定文本输出到图片 - 回复 "徐一凡" 的问题

把指定文本输出到图片 - 回复 "徐一凡" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/08/10/1071357.html#1282779 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Di

给 TWebBrowser.Document 定义事件

给 TWebBrowser.Document 定义事件 (该代码来自国外网站, 给 "神奇的科比" 参考) 代码:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, MSHTML, ActiveX, StdCtrls; typ

Delphi 的内存操作函数(6): 跨进程的内存分配

Delphi 为我们提供了三个方便的函数: GlobalAllocPtr  {简化自 API 的 GlobalAlloc} GlobalReAllocPtr {简化自 API 的 GlobalReAlloc} GlobalFreePtr    {简化自 API 的 GlobalFree} 读写本程序以外的数据时可以使用它们, 很方便, 譬如: p := GlobalAllocPtr(0, Len);   

Delphi的Json学习之一

-------Unit开始 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; Button3: TButton; Button4

delphi RTTI 反射技术(转自朝闻道博客)

unit Unit_main;      interface      uses     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,     Dialogs, StdCtrls, TypInfo;      type     TForm_main = class(TForm)       Button1: TButton;

Delphi XE----Rtti单元一（TRttiContext）

    通过 Rtti 单元的 TRttiContext(是个 record), 可以方便地获取类的方法、属性、字段的列表. ----------------------------------------------------------------------------------------------------------------------------------------------------------------------