delete(bufstr,1,pos('^^^',bufstr)+2);
xmm:=COPY(bufstr,1,POS('|',BUFSTr)-1);
delete(bufstr,1,pos('|',bufstr));
datas:= COPY(bufstr,1,POS('|',BUFSTr)-1);
delete(bufstr,1,pos('|',bufstr));
xmm:=xmm+copy(bufstr,1,POS('|',BUFSTr)-1);
xmm:=CodeToName(exepath,IntToStr(fixcode),xmm);
if pos('Err',datas)>0 then datas:='';
if pos('FAILED',datas)>0 then datas:='';
xmm:=COPY(bufstr,1,POS('|',BUFSTr)-1);
delete(bufstr,1,pos('|',bufstr));
datas:= COPY(bufstr,1,POS('|',BUFSTr)-1);
delete(bufstr,1,pos('|',bufstr));
xmm:=xmm+copy(bufstr,1,POS('|',BUFSTr)-1);
xmm:=CodeToName(exepath,IntToStr(fixcode),xmm);
if pos('Err',datas)>0 then datas:='';
if pos('FAILED',datas)>0 then datas:='';
解决方案 »
- TIdSocketHandle没有怎么办
- 下面这段是动态生成TTabSheet的。生成可以。。但是我怎么按单独把它会一个个关闭呢??按当前的TTabSheet关闭,怎么做?
- 一个有关DBGrid 控件的问题???
- 新手向高手求救!如何操作OleContainer里面的Excel对象!急!!!
- 不是技术的技术问题!
- Delphi程序使用时界面乱了
- 有本好书,想送给真正需要的Java程序员。。。
- 有点难度是关于DLL的,如果有什么好意见一定给分(分数不够再加)
- delphi队列使用问题
- 自动注册webbrowser的问题?
- fastreprot3.22预览界面,打印的快捷方式改为P,并且点[P]打印后,自动退出预览界面。
- 在同一dbgrid中显示不同表的问题
按语句顺序依次达到的结果为:
bufstr := 'bbb|ccc|ddd|'
xmm := 'bbb'
bufstr := 'ccc|ddd|'
datas := 'ccc'
bufstr := 'ddd|'
xmm := 'bbbddd'
xmm := 一个转换函数
Unit
System Syntax
[Delphi] procedure Delete(var S: string; Index: Integer; Count: Integer);
Description
In Delphi code, Delete removes a substring of Count characters from string S starting with S[Index]. S is a string-type variable. Index and Count are integer-type expressions.
If index is larger than the length of the string or less than 1, no characters are deleted.
If count specifies more characters than remain starting at the index, Delete removes the rest of the string. If count is less than or equal to 0, no characters are deleted.