delphi Format Type
Format
type的可能值有下列这些：
(1) d 有符号十进制数
Args必须是有符号整型数。如果在格式化字符串中还加入了["." prec]，则如果Args
的长度如果小于给出的精度数时，在前边填补0；如果大于精度数，按实际长度显示。
Format('(%.3d)', [99]); 结果：'(099)'
(2) u 无符号十进制数
Args必须是无符号整型数。其它特性与d一样。
(3) e 科学技术法
用科学技术法显示数据，形式大致如下：'-d.ddd...E+ddd'。
Args必须是一个浮点数。如果是一个负数，则在最前面显示一个符号；在小数点前面
总是显示一位数字；包括小数点前面的数字在内，数字的个数由["." prec]来确定，
如果没有指定["." prec]，则默认为15位精度。如果实际的数字长度超出了指定的
["." prec]，则刚刚超出的那一位数字四舍五入。指数符号E后面总是要跟着加号或
减号，并且在后面至少跟着三位数字。
(4) f 固定的
Args必须为浮点数，转换后的形式大致是'-ddd.ddd...'这样的。
相关文档：
一、Delphi中流的基本概念及函数声明
在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。
TStream类中定义的属性介绍如下：
1、Size:此属性以字节返回流中数据大小。
2、Position:此属性控制流中存取指针的位置 ......
将远程控制应用于教学中，已成为目前计算机化教学的重要手段。一定有很多的网虫想了解这种网络教学方式的编程原理吧。在此我们就以一个简单的远程控制程序作为示例，说明这种网络编程的基本原理。本程序以Delphi编程为例。
其实该程序的工作机制很简单，受控方运行一个程序，用于侦听端口并接收数据包，而主控方通过� ......
type
TCharStack = class(TStack)
private
function GetTop: Char;
public
function Pop: Char;
function Push(Item: Char): Char;
property Top: Char read GetTop;
end;
const
FindSet = ['(',')'];
implementation
{$R *.dfm}
{ TCharStack }
......
Procedure TForm1.Button1Click(Sender: TObject);
Var
xmlstr,FileName: String;
f: Textfile;
Begin
xmlStr := '<?xml version="1.0" encoding="gb2312"?>';
xmlstr := xmlstr + '<user><name>张三</name><sex>男</sex></user>';
sh ......
