此字符串分割函数用delphi编写,可以适应字符串中存在双字节字符和单字节字符. function TricheditEfm.SplitString(source:string;Sleng:Integer):TStringlist;stdcall; //字符串分割函数 ,按字符串长度分割 var copycount,i:Integer; //每个汉字占用两个字节长度 copystr:string; stringlist:Tstringlist; begin Stringlist:=Tstring
function GetLeft(sText, sepStr: string): string; var p: Integer; begin p := Pos(sepStr, sText); then Exit(''); Result := Copy(sText, , p - ); end; function GetRight(sText, sepStr: string): string; var p: Integer; begin p := Pos(sepStr, sText); then E
{动态添加导航} var Panl:Tpanel; MainPage,Subpage:TPageControl; TabSheet1: TTabSheet; ToolBar2: TToolBar; Splitter:TSplitter; begin {创建导航树开始} Panl:=Tpanel.Create(self); with Panl do begin Parent := mainForm; Left:= ; Top:= ; Width:= ; Height:= ; Align:= alL