用copy:-->copy(str,1,4) //从str中第一个字符起,取出4个字符
或pos:-->pos(substr,str)
或pos:-->pos(substr,str)
解决方案 »
- 我回来了(一个老Delphi程序员)
- 重金求够 地磅称重软件 源码
- 各位知道大庆怎么样吗?要到那去了,郁闷:(
- 学做报表遇到问题:请通俗易懂的解释一下什么是交叉表,以及做法(fastReport)
- 新手请教:怎样在Excel中插入图片
- 问关于MODEN的一个简单问题
- 在线等待:简单问题,怎么样编译打包后让DELPHI脱离开发环境独立运行?
- 如何在D6下安装MwEdit?
- Firebird数据库在某些电脑上启动慢?
- 各位大虾:请问有没有打开mdb的代码?不知道表的情况下,有没有可能办法捕获表并打开???
- 不需通过BDE,有何其他方法连接DBF数据库(除ADO外)
- delphi调用外部文件,怎样确定外部文件结束?
您怎么知道s1是四个字符长哪?
看看delphi的例子。
你会受益。
procedure TForm1.Button1Click(Sender: TObject);
var aa:string;
bb:string;
i,j:integer;
begin
aa:='aaaa+bbbb+cccc+dddd';
j:=1;
for i:=1 to length(aa) do
begin
if aa[i]='+'then
begin
bb:=copy(aa,j,i-j);
showmessage(bb);
j:=i+1;
end
else if i=length(aa) then
begin
bb:=copy(aa,j,i-j+1);
showmessage(bb);
end;
end;
end;