关于 class helper for ... 语法

关于 class helper for ... 语法 class helper 可能是从 Delphi 2007 增加的新语法, 因为感觉不太实用, 直到今天才测试了一下. 试过之后才知道: 挺有意思的! 基本功能就是修改已存在的类.Txxx = class helper for T... {T...

置顶 原创 点赞0 阅读90 收藏0 评论0 2021-05-20

如何打开记事本并显示指定内容 - 回复 "苦苦苦" 的问题

如何打开记事本并显示指定内容 - 回复 "苦苦苦" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/10/27/1590975.html#1696167procedure TForm1.Button1Click(Sender: TObject); va

置顶 原创 点赞0 阅读89 收藏0 评论0 2021-05-20

详解 EnumWindows 与 EnumWindowsProc - 回复 "SplendourChiang" 的问题

详解 EnumWindows 与 EnumWindowsProc - 回复 "SplendourChiang" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/10/16/1584488.html#1727205// EnumWindows 的功能是遍

置顶 原创 点赞0 阅读87 收藏0 评论0 2021-05-20

X 的 Y 次方

X 的 Y 次方 var x,y,z: Real; begin x := 2; y := 3; { 使用 Math.Power } z := Math.Power(x, y); ShowMessage(FloatToStr(z)); //8 { 不想 uses Math,

置顶 原创 点赞0 阅读119 收藏0 评论0 2021-05-20

创建大窗口

创建大窗口 procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong( Handle, GWL_STYLE, not (WS_THICKFRAME) and GetWindowLong(Handle, G

置顶 原创 点赞0 阅读79 收藏0 评论0 2021-05-20

一句话复制整个文件夹(当然包括嵌套文件夹) - 回复 "张哆哆" 的问题

一句话复制整个文件夹(当然包括嵌套文件夹) - 回复 "张哆哆" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/10/16/1584660.html#1742606 使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory

置顶 原创 点赞0 阅读73 收藏0 评论0 2021-05-20

一句话获取文件的最新修改时间

一句话获取文件的最新修改时间 var DateTime: TDateTime; begin FileAge('C:\Windows\Notepad.exe', DateTime); ShowMessage(DateTimeToStr(DateTime)); end;

置顶 原创 点赞0 阅读74 收藏0 评论0 2021-05-20

用 SuperObject 解析淘宝上的 Json 数据 - 回复 "macrolen" 的问题

用 SuperObject 解析淘宝上的 Json 数据 - 回复 "macrolen" 的问题 macrolen 给了这样一些数据, 说是用淘宝的 API 获取的 JSON 数据, 让我帮助解析:{"items_search_response":{"item_search":{"item_catego

置顶 原创 点赞0 阅读72 收藏0 评论0 2021-05-20

音标输入对照表

音标输入对照表 使用 Kingsoft Phonetic Plain 字体(ksphonetic.ttf)写音标时老记不住, 就做了这个对照表: posted on 2010-02-24 19:12  万一  阅读(3135)  评论(8)  编辑

置顶 原创 点赞0 阅读84 收藏0 评论0 2021-05-20

音标标注工具: PMark 1.0 下载及使用说明

音标标注工具: PMark 1.0 下载及使用说明 下载 PMark 1.0 解压后只有两个文件: PMark_1.exe(主程序)、Dict.dat(词库), 运行 PMark_1.exe 即可. 程序自动生成的其他辅助文件都可以随时删除. 如果音标显示异常, 是因为缺少音标字体文件, 随便 下载

置顶 原创 点赞0 阅读70 收藏0 评论0 2021-05-20

获取打开的记事本中的内容 - 回复 "ymg1103" 的问题

获取打开的记事本中的内容 - 回复 "ymg1103" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/11/15/1334237.html#1784570procedure TForm1.Button1Click(Sender: TObject); v

置顶 原创 点赞0 阅读96 收藏0 评论0 2021-05-20

输出用空格对齐字符串的函数 - 回复 "老A123" 的问题

输出用空格对齐字符串的函数 - 回复 "老A123" 的问题 问题来源: http://www.cnblogs.com/del/archive/2007/12/18/1005161.html#1786227{ 函数 } function ToAlignString(const str: string;

置顶 原创 点赞0 阅读80 收藏0 评论0 2021-05-20

如何使用 URLOpenStream 函数 - 回复 "天泽" 的问题

如何使用 URLOpenStream 函数 - 回复 "天泽" 的问题 URLOpenStream 和 URLDownloadToFile 类似, 都是下载文件的 COM 函数; 前者是下载到 IStream 流, 后者是直接下载到指定路径; 不如后者使用方便. 它们都声明在 UrlMon 单元,

置顶 原创 点赞0 阅读88 收藏0 评论0 2021-05-20

如何删除动态数组的指定元素 - 回复 "Splendour" 的部分问题

如何删除动态数组的指定元素 - 回复 "Splendour" 的部分问题 type TArr = array of TPoint; {把数组先定义成一个类型会方便许多, 这里仅用 TPoint 测试} {删除动态数组指定元素的过程: 参数 arr 是数组名, 参数 Index 是要删除的索引} pr

置顶 原创 点赞0 阅读85 收藏0 评论0 2021-05-20

如何和我共享 DropBox 上的 PDF 电子书

如何和我共享 DropBox 上的 PDF 电子书 因不方便访问, 已停止使用! 这是在 DropBox 上第二次申请的空间, 第一次的空间应开放的透明度太高被无聊之人夺去不再提. 资料已传满 10G ... 这些资料您可以下载, 也可以在电脑上建立一个文件夹和我同步. 不管是下载还是同步, 都先要到

置顶 原创 点赞0 阅读78 收藏0 评论0 2021-05-20

如何把类中的方法做参数 - 回复 "林Lin☆☆" 的问题

如何把类中的方法做参数 - 回复 "林Lin☆☆" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/08/15/1268301.html#1806783unit Unit1; interface uses Windows, Messages,

置顶 原创 点赞0 阅读76 收藏0 评论0 2021-05-20

将 4 个 Byte 合成 1 个 Integer 的五种方法 - 回复 "三足乌" 的问题

将 4 个 Byte 合成 1 个 Integer 的五种方法 - 回复 "三足乌" 的问题 问题来源: http://www.cnblogs.com/del/archive/2010/04/21/1717584.html#1809298//方法 1: 共用内存 procedure TForm1.But

置顶 原创 点赞0 阅读59 收藏0 评论0 2021-05-20

一个拼图工具的制作思路 - 回复 "AlwaysBug" 的问题

一个拼图工具的制作思路 - 回复 "AlwaysBug" 的问题 测试简图: 功能简介: 1、双击左窗口可打开源图像; 2、框选左窗口可把图像选取复制到右窗口; 3、剪取的图块可以移动, 可配合 Ctrl 单选或多选, 可用 Delete 删除选择的图块; 4、双击右窗口可保存拼好的图像. 功能实现

置顶 原创 点赞0 阅读67 收藏0 评论0 2021-05-20

知道双字节码, 如何获取汉字 - 回复 "pinezhou" 的问题

知道双字节码, 如何获取汉字 - 回复 "pinezhou" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/09/05/1284923.html#1818187{查看同一字符串的双字节码和 UniCode 码} procedure TForm1.Bu

置顶 原创 点赞0 阅读68 收藏0 评论0 2021-05-20

一个分割文本文件的小程序 - 回复 "jellyang" 的问题

一个分割文本文件的小程序 - 回复 "jellyang" 的问题 问题来源: http://www.cnblogs.com/del/archive/2010/05/28/1746514.html#1835637 代码:unit Unit1; interface uses Windows, Me

置顶 原创 点赞0 阅读67 收藏0 评论0 2021-05-20

如何使用系统级热键捕捉当前窗口保存为 png 图片 - 回复 "巅枫" 的问题

如何使用系统级热键捕捉当前窗口保存为 png 图片 - 回复 "巅枫" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/02/16/1392049.html#2011187 程序运行后, F8 可保存 bmp, F9 可保存 png; 测试保存目录在

置顶 原创 点赞0 阅读68 收藏0 评论0 2021-05-20

如何把一个字符串填充到一个无类型的指针 - 回复 "豪杰的爸爸" 的问题

如何把一个字符串填充到一个无类型的指针 - 回复 "豪杰的爸爸" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/11/08/1329543.html#2016234procedure TForm1.Button1Click(Sender: TObje

置顶 原创 点赞0 阅读5 收藏0 评论0 2021-05-20

使用 BinToHex() 把 TBytes 转换为十六进制字符串 - 回复 "梧桐栖凤" 的问题

使用 BinToHex() 把 TBytes 转换为十六进制字符串 - 回复 "梧桐栖凤" 的问题 {函数} function BytestoHexString(ABytes: TBytes; len: Integer): AnsiString; begin SetLength(Result, len

置顶 原创 点赞0 阅读38 收藏0 评论0 2021-05-20

如何在 TDrawGrid 的单元格中显示图片 - 回复 "巅枫" 的问题

如何在 TDrawGrid 的单元格中显示图片 - 回复 "巅枫" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/03/06/1094289.html#2023057在 C:\Temp\ 下准备 1.bmp、2.bmp、3.bmp 三个图片, 然后:u

置顶 原创 点赞0 阅读80 收藏0 评论0 2021-05-20

让程序运行后自我删除或恢复名称 - 回复 "实习新手" 的问题

让程序运行后自我删除或恢复名称 - 回复 "实习新手" 的问题 问题来源:http://www.cnblogs.com/del/archive/2008/08/12/1266368.html#2028808unit Unit1; interface uses Windows, Messages,

置顶 原创 点赞0 阅读81 收藏0 评论0 2021-05-20

关于开放数组的小练习

关于开放数组的小练习 {整数求和函数,使用指定类型的开放数组} function Fun1(arr: array of Integer): Integer; var n: Integer; begin Result := 0; for n in arr do Inc(Result, n); e

置顶 原创 点赞0 阅读84 收藏0 评论0 2021-05-20

解析 png 图片的十六进制字符流的函数 - 回复 "黑人" 的问题

解析 png 图片的十六进制字符流的函数 - 回复 "黑人" 的问题 问题来源:http://www.cnblogs.com/del/archive/2010/04/24/1719631.html#2079634 使用下面的 Hex2Png() 函数解析黑人给的数据,结果是一个 93396 的验证码图

置顶 原创 点赞0 阅读69 收藏0 评论0 2021-05-20

在 StringGrid 上画线时, 使用 GDI+ 以消除锯齿 - 回复 "gsjn_8888_6666" 的问题

在 StringGrid 上画线时, 使用 GDI+ 以消除锯齿 - 回复 "gsjn_8888_6666" 的问题 问题来源: http://www.cnblogs.com/del/archive/2009/12/24/1631729.html#2097194 GDI+ 接口: http://www.

置顶 原创 点赞0 阅读71 收藏0 评论0 2021-05-20

如何使用 TStringGrid 呈现大量的颜色信息 - 回复 "冷公子" 的问题

如何使用 TStringGrid 呈现大量的颜色信息 - 回复 "冷公子" 的问题 "冷公子" 同学需要在 TStringGrid 中通过颜色显示大量信息, 给出的方案是: 建立一个对应的颜色数组.参考代码:unit Unit1; interface uses Windows, Messages

置顶 原创 点赞0 阅读87 收藏0 评论0 2021-05-20

解压 svgz 到 svg

解压 svgz 到 svg 手头的程序中需要解压 svgz 到 svg. 之前我在手动解压时, 一般就用 WinRar, 所以曾经以为 svgz 是 zip 格式的(因为和 zip 的压缩率基本一致), 现在知道了它是 gzip 压缩格式. 在解决这个问题之前, 曾经傻呵呵地找来 VclZip、Zi

置顶 原创 点赞0 阅读75 收藏0 评论0 2021-05-20
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8