delphi 对字符串进行倒序的最快算法
var
L,i:integer;
Ustr,str:string;
p:char;
begin
str:='123456789ABCDEFG'
L:=length(str);
for i:=1 to l do begin
p:=str[i];
str[i]:=str[l-(i-1)];
str[l-(i-1)]:=p;
if i=(l div 2) then break;
end;
相关文档：
一、类与对象
1、 类(Class)是用户定义的数据类型
2、 对象（Object）是类(Class)的一个实例，或由类定义数据类型的一个变量;
3、 类有一种状态（内部数据），操作（行为或方法），属性;
4、 对象是一个实体，程序运行时会为其内部表现分配一些内存;
5、 类与对象之间的关系和变量与类� ......
1、控制POS机的客户显示屏
procedure TFrmMain.ShowMoney(Money_Port: String;Money_String:String);
//Moneey_Port 顾显接口Com1 or Com2 Money_String 顾显显示的内容
var
PrnFile ......
<1>利用Unit的
Initalization与Finalization这两个小节
可以在Unit的这两个小节中安排Unit的进入和退出，但是
Program
与
Library并没有这两个部分，所以只能写在Unit中。
<2>利用ExitProc变量
在Library的begin
..end.中间是可以写代码
的，
这里可以放置
DLL初始化代码
。如果想要做善 ......
