Delphi format的用法
一、Format函数的用法
Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：
首先看它的声明：
function Format(const Format: string; const Args: array of const): string; overload;
事实上Format方法有两个种形式，另外一种是三个参数的，主要区别在于它是线程安全的，但并不多用，所以这里只对第一个介绍：
function Format(const Format: string; const Args: array of const): string; overload;
Format参数是一个格式字符串，用于格式化Args里面的值的。Args又是什么呢，它是一个变体数组，即它里面可以有多个参数，而且每个参数可以不同。
如以下例子：
Format('my name is %6s',['wind']);
返回后就是
my name is wind
现在来看Format参数的详细情况：
Format里面可以写普通的字符串，比如'my name is' 但有些格式指令字符具有特殊意义，比如"%6s"
格式指令具有以下的形式：
"%" [index ":"] ["-"] [width] ["." prec] type
它是以"%"开始,而以type结束，type表示一个具体的类型。中间是用来格式化type类型的指令字符，是可选的。
先来看看type,type可以是以下字符：
d 十制数，表示一个整型值
u 和d一样是整型值，但它是无符号的，而如果它对应的值是负的，则返回时是一个2的32次方减去这个绝对值的数
如：Format('this is %u',[－2]);
返回的是：this is 4294967294
f 对应浮点数
e 科学表示法，对应整型数和浮点数，
比如Format('this is %e',[-2.22]);
返回的是：this is -2.22000000000000E+000
等一下再说明如果将数的精度缩小
g 这个只能对应浮点型，且它会将值中多余的数去掉
比如Format('this is %g',[02.200]);
返回的是：this is 2.2
n 只能对应浮点型，将值转化为号码的形式。看一个例子就明白了
Format('this is %n',[4552.2176]);
返回的是this is 4,552.22
注意有两点，一是只表示到小数后两位，等一下说怎么消除这种情况
二是，即使小数没有被截断，它也不会也像整数部分一样有逗号来分开的
m 钱币类型，但关于货币类型有更好的格式化方法，这里只是简单的格式化
另外它只对应于浮点值
Format('this is %m',[9552.21]);
返回：
相关文档：
第一种：需要引用Windows单元
ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION)));
第二种：需要引用Windows单元
function GetSystemTaskBarHeight:Integer;
var
R:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);
Resul ......
如今RealPlayer的流式媒体文件以其强大的视频压缩比正逐步悄然兴起。RealPlayer Plus播放器也理所当然地成为大家播放RealPlayer格式文件的首选软件。不过RealPlayer Plus也不是十全十美的，比如启动时间慢，占用空间大，留有历史记录等等。其实我们可以利用Delphi打造一个完全符合自己要求的RealPlayer� ......
delphi调用选择目录对话框
经常见网上有人问选择目录对话框的控件，其实只用一个函数就可以实现。
注意引用 Filectrl 单元
use Filectrl;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: String;
begin
SelectDirectory('Select a directory', '', Dir);
ShowMessage(Dir);
end; ......
var
ExcelFile:string;
SourceRange,DesRange:Variant;
Row,Column,i:integer;
begin
if OpenDialog1.Execute then
begin
ExcelFile:=OpenDialog1.Files[0];
if not FileExists(ExcelFile) then Exit;
end
else
Exit;
try
ExcelApp:=CreateOleObject('Excel.Application');
......
用Delphi开发数据库应用，一般会涉及到闪屏（Splash）、登录窗口、主数据模块（或主数据库连接）以及主窗口。通常在项目文件中，splash窗口显示过，一些需要加载的资源、窗口加载过后，Application.Run之前，进行用户登录。
//测试CSDN博客对DELPHI代码的支持
program TEST;
uses
Forms,
Windows,
MainF in 'Ma ......
