问题1:怎么找出,一个字符串中的‘/’字符的个数,
问题2:
例如:
s1,s2,s3:string;
function searchString();
s1:='name/pwd/name1/name2/name3'
请问function searchString()就是找出字符串中的字符,
searchString(1,s1) 我想取出字符串s1的第一个字符,就是name
searchString(2,s1) 我想取出字符串s1的第二个字符,就是pwd
searchString(3,s1) 我想取出字符串s1的第三个个字符,就是name1依此类推,请问searchString函数怎么实现?????????????
问题2:
例如:
s1,s2,s3:string;
function searchString();
s1:='name/pwd/name1/name2/name3'
请问function searchString()就是找出字符串中的字符,
searchString(1,s1) 我想取出字符串s1的第一个字符,就是name
searchString(2,s1) 我想取出字符串s1的第二个字符,就是pwd
searchString(3,s1) 我想取出字符串s1的第三个个字符,就是name1依此类推,请问searchString函数怎么实现?????????????
解决方案 »
- 求Delphi XE SHA1算法源码
- [正确就结贴]求教可以支持多数据库平台的东西能实现吗?
- delphi群(11835856),欢迎搞分布式结构的人士加入.
- 为什么Delphi7编译下的程序会有Access Violation的错误?
- 关于RICHEDIT20的疑问
- 我客戶端是ado2.8,服務器上是SQL2000,ado2.7,是否對客戶端有什麼影響?
- D5与ADO的补丁的问题!!!!!!!!!!!!!!
- 我用Database控件做完SQL自动登陆,但其中'user'表Active时系统提示关键字user附近语法错误,怎么解决?
- ADO连接到ACCSEE2000.编写的程序..发放时还需要安装别的东西码?
- 图形方面问题,高手请进!!!
- DBLookUpComboBox的死机问题,给分100
- 集合Set 和 数组Array 的问题
var
itm:Tstringlist;
begin
//s:='name/pwd/name1/name2/name3';
itm:=tstringlist.Create;
itm.Delimiter:='/';
itm.DelimitedText:=s ;
Result:=itm.strings[i-1];
end;
var
itm:Tstringlist;begin
itm:=tstringlist.Create;
itm.Delimiter:='/';
itm.DelimitedText:=s ;
if (i>itm.Count) or (i<1 ) then
begin
result:='';
itm.Free ;
exit;
end;
Result:=itm.strings[i-1];
itm.Free;
end;
楼主可以揭贴了。
function GetMaskString(S,Mask:string;Position:integer):string;
var
Str:string;
i,Len:integer;
begin
Str:='';
for i:=0 to position -1 do
begin
if (Pos(Mask,S))<=0 then
begin
Str:=S;
Break;
end;
Str:=Copy(S,1,Pos(Mask,S)-1);
Len:=Length(Str);
S:=Copy(S,Len+2,Length(S)-Len-1);
end;
Result:=Str;
end;//
var
s1:string;
begin
s1:='name/pwd/name1/name2/name3/'
edit1.text=GetMaskString(s1,/,1);//name
edit2.text=GetMaskString(s1,/,2);//pwd
end;