var str,capstr:string; i,j:integer; .................... j:=500; //这个地方可能要根据你显示的宽度来换算对应的字符长度 str:=somestring; capstr:='' i:=1 while i<=length(somestring) do begin capstr:=capstr+copy(str,i,j)+#13#10; i:=i+j; end; label1.WordWrap:=true;
1. 提取字符串中指定子字符串前的字符串 Function Before( Src:string ; S:string ): string ; Var F: Word ; begin F:= POS(Src,S) ; if F=0 then Before := S else Before := COPY(S,1,F-1) ; end ; eg: Before('123','helloworld_123') 返回结果:helloworld_ 2.
function Encode(Str: string): string; var //加密 TmpChr: AnsiChar; i, Len: integer; begin Result := Str; Len := Length(Result); TmpChr := Result[1]; for i := 1 to Len - 1 do Result[i] := Result[i + 1]; Result[Len] := TmpChr; end; function Decode(Str: s
1.Copy 功能说明:该函数用于从字符串中复制指定范围中的字符.该函数有3个参数.第一个参数是数据源(即被复制的字符串),第二个参数是从字符串某一处开始复制,第三个参数是要复制字符串的长度(即个数).最后函数返回一个新的字符串(即是我们指定要复制的字符串内容). 参考实例: var S: String; MyStr: String; // 保存新的字符串 begin S := 'I Love China!'; //下面将获取I Love China中的“Love”字符串. MyStr := C
今天发现BW系统从K3系统数据库抽取会计科目的描述时,转换出错. 从监控器上看是值2KO 845 412D#有问题,但不知道有什么问题,检查后感觉是符号#的问题. 在转换中添加代码,替换#,发现没有起任何作用. REPLACE '#' IN RESULT WITH ''. 检查字符串中发现字符串中的# 十六进制是0D00,一般的#符号是2300,这里基本确定从K3抽取过来的#不是正常的#符号,而且字符串中的换行符或者回车. 调整代码,先获取SAP的换行符,再替换字符串中的符号. DATA LS_