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

Question

vb中有replace()这个函数！

Answer 1

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

Answer 2

用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;