delphi_分隔字符串_多间隔字符
procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
tmpStr:String;
sValue:String;
iStart,iPos:Integer;
begin
try
desLst.Clear; //很重要，否则，会一直是第一个值
tmpStr:=sourStr;
iStart:=1;
iPos:=Pos(splitChar,tmpStr);
if iPos>0 then
begin
while iPos>0 do
begin
sValue:=MidBStr(tmpStr,iStart,iPos-iStart);
desLst.Add(sValue);
iPos:=iPos+length(splitChar); //跳过多分隔符情况下的剩余分隔字节
tmpStr:=midbstr(tmpStr,iPos,Length(tmpStr)-iPos+1);
iPos:=Pos(splitChar,tmpStr);
if iPos<=0 then //处理最后一个元素
desLst.Add(tmpStr);
end;
end
else
begin
if (iPos=0) and (trim(tmpStr)<>'') then
desLst.Add(tmpStr);
end;
except
end;
end;
相关文档：
Delphi编写系统服务三：编写两栖系统服务 收藏
采用下面的方法，可以实现一个两栖系统服务（既系统服务和桌面程序的两种模式）
工程代码：
program FleetReportSvr;
uses
SvcMgr,
Forms,
SysUtils,
Windows,
SvrMain in 'SvrMain.pas' {FleetReportService: TService}, ......
比如操作
CSDN的登录
先用WebBrowser定位到登录页面
WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/');
然后，看其HTML源代码，发现
名字为 ctl00$CPH_Content$tb_LoginNameOrLoginEmail的元素就是 其用户名的输入框了。
此时
使用
(WebBrowser1.Documen ......
delphi中的DLL中的声明原码如下：
这里声明了输出性参数分别为数字与字符类型
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + '这是传出的' ......
Delphi中高级DLL的编写和调用技巧
根据Delphi提供的有关 DLL编写和调用的帮助信息，你可以很快完成一般的 DLL编写和调用的 应用程序。本文介绍的主题是如何编写和调用能够传递各种参数（包括对象实例）的 DLL。例如， 主叫程序传递给 DLL一个ADOConnection 对象示例作为参数， DLL中的函数和
根据Delphi提供的有关 DLL编� ......
最近一阵子，总是被一个莫名其妙的bug困扰。自己写的ocx（.net2005）在delphi7中调用，明明没有释放主动释放过内存，却被连续释放了两次。结果，程序退出时就down掉了。当然，这是在debug模式下才会出现，但是exe跑的时候会莫名奇妙的down掉，而且出错往往指向ocx，我想一定和ocx的调用有关。
上网找了purify，boundscheck ......
