博客园-万一的 Delphi 博客

{函数}
function SetScreen(x,y: Word): Boolean;
var
DevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, DevMode);
if Result then
begin
DevMode.dmFields := DM_PELSWIDTH or DM_PELSHE...

下面是常用编码的识别符, 在 Delphi(2009) 中如何获取呢?
Unicode: FF FE; BigEndianUnicode: FE FF; UTF8: EF BB BF
var
bs: TBytes;
b: Byte;
str: string;
begin
{只有 Unicode、BigEndianUnicode、UTF8 编码有识别符}
bs := TEncodi...

//待续...
[新闻]杨致远发表博客解释辞职原因 博客园首页 社区 新闻频道 小组 博问 网摘 闪存

先上转换函数:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
...

测试效果图:
自定义的 MyShape 单元:
unit MyShape;
interface
uses
Windows, Classes, Graphics, Controls;
type
TMyShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare,
stEllipse, stCircle, stPolygon)...

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

问题来源: http://www.cnblogs.com/del/archive/2008/11/14/1120015.html#1370413
StrUtils 单元和 Math 单元 分别有一个 IfThen 函数, 举例:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphi...

MoveMemory、CopyMemory 的功能是一模一样的, 都是复制内存, 都是调用 Move 过程;
MoveMemory、CopyMemory 操作指针; Move 操作实体.
举例:
{例1}
var
buf1,buf2: array[0..9] of AnsiChar;
begin
buf1 := '0123456789';
buf2 := 'abcdefghij';
...

FillMemory、ZeroMemory 一目了然的两个函数, 但其实它们都是调用了 FillChar;
清空不过就是填充空字符(#0: 编号为 0 的字符), 说来说去是一回事.
为了下面的测试, 先写一个以十六进制方式查看内存的函数:
function GetMemBytes(var p; size: Integer): string;
var
pb: PByte;
i: Int...

一、遍历 TStrings
var
List: TStrings;
s: string;
begin
List := TStringList.Create;
List.CommaText := 'aaa,bbb,ccc';
for s in List do
ShowMessage(s);
List.Free;
end;
二、遍历数组
var
Arr: array[0..2]...