{函数功能：使用自定义分隔符分离字符串并以Stringlist返回参数说明： Source: 源字符串 Deli: 自定义分离符StringList: 返回分离结果}procedure SplitString(Source,Deli:string; var StringList :TStringList);var  EndOfCurrentString: Int

initialization RegisterClass(TTestSub1);finalization UnregisterClass(TTestSub1); var obj : TTest; clsName = 'TTestSub1';obj := TTestClass(FindClass(clsName)).Create RegisterClasses([T

=============== SQL 中的存储过程 ====================CREATE procedure splitPage@sqlstr nvarchar(4000), --查询字符串 @currentpage int, --第N页 @pagesize int --每页行数 as set nocount on declare @P1 int, --P1是游标

1、使用Package实现如何使用Delphi开发大型主从架构系统-Package的秘密和威力相信许多人和我一样，在使用Delphi开发应用系统的时候，一定会想到如何的切割整个应用系统。是把所有的子系统撰写成一个很大(可能会有数M.Bytes的大小)的EXE檔呢？还是应该把每一个模组撰写在不同的EXE檔案之中的好。事实上这两种方法都有它们自己的问题。如果是把所有的模组撰写在一个EXE檔