如何去除字符串中的子串,用哪个函数?我是想去掉字符串中的“.”

hoge66 2003-10-20 09:32:25
vb中有replace()这个函数!
...全文
99 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
sy_315 2003-10-20
  • 打赏
  • 举报
回复
用pos定位
delphi里面也有replace
example
procedure TForm1.Button1Click(Sender: TObject);
begin
with IBRestoreService1 do
begin
ServerName := 'Poulet';
LoginPrompt := False;
Params.Add('user_name=sysdba');
Params.Add('password=masterkey');
Active := True;
try
Verbose := True;
Options := [Replace, UseAllSpace];
PageBuffers := 3000;
PageSize := 4096;
DatabaseName.Add('c:\interbase\tutorial\tutorial.gdb');

BackupFile.Add('c:\interbase\tutorial\backups\tutor5.gbk');
ServiceStart;
Whilenot Eof do
Memo1.Lines.Add(GetNextLine);
finally
Active := False;
end;
end;

end;

To restore a database from multiple files:

procedure TForm1.Button3Click(Sender: TObject);
begin
with IBRestoreService1 do
begin
ServerName := 'Poulet';
LoginPrompt := False;
Params.Add('user_name=sysdba');
Params.Add('password=masterkey');
Active := True;
try
Verbose := True;
Options := [Replace, UseAllSpace];
PageBuffers := 3000;
PageSize := 4096;
BackupFile.Add('c:\temp\e1.gbk');
BackupFile.Add('c:\temp\e2.gbk');

BackupFile.Add('c:\temp\e3.gbk');
DatabaseName.Add('c:\interbase\examples\database\employee.gdb');
ServiceStart;
Whilenot Eof do
Memo1.Lines.Add(GetNextLine);
finally
Active := False;
end;
end;
end;
myboor 2003-10-20
  • 打赏
  • 举报
回复
自己写吧
noil0125 2003-10-20
  • 打赏
  • 举报
回复
Unit
SysUtils

type
TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
rfReplaceAll对s中的oldpattern全部替换为newpattern,rfIgnoreCase不区分大小写。
function StringReplace(const S, OldPattern, NewPattern: string
; Flags: TReplaceFlags): string;

s:=stringreplace(s,'.','',[rfReplaceAll]);

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧