如题目所示,如果在一个字符串中如'A&C0'中,存在'&'字符,而且不知道'&'存在在字符串中的哪一位置,现在想把该'&'字符删除,使获得的字符串不存在'&'字符,该如何处理?请大家帮帮忙,马上给分!
解决方案 »
- TvirtualTable问题
- 一个功能delphi能实现吗?
- 如何对已经得到查询结果的数据集(ADOQuery) 进行某个字段进行统计
- scanline的问题
- treeview的items.clear与Items.Add的问题?
- 急!!1怎样把dbgrid1中,字段姓名的高度和左右宽度的值赋给ComboBox1?
- 過程的另類想法是否有錯?
- 管不了这么多了:TreeView怎么用?(还是脸红了)
- 关于进度条ProgressBar1的用法?
- 在DELPHI中如何判断知道键盘按了哪个键(如:DELETE键)。谢谢
- 开心放分,我参加的"互联网上网服务营业场所计算机经营管理系统"通过了中国软件测试中心的评测
- 一个小问题,很急。。。在线等待。
Function delstr(str,delstr:string):string;//Function Tform1.delstr(str,delstr:string):string; //str是你'A&C0' ,delstr传的是&字符
Var
newstr:string;
i:integer;
begin
For i:=0 to length(str);
if str[i]<>delstr Then
newstr:=newstr+str[i]; result:=newstr;
end;在程序里调用
procedure Tform1.button1click(sender:objects);
begin
showmessage(delstr('A&C0'),'&');
end;
s := StringReplace(s, '&', '', [rfReplaceAll]);
begin
n:=post('&','A&C0'); //n:=2
c:=delete('A&C0',n,1); // c:='ACO'
end;