怎么用Delphi将一个文本文档中的空格全部替换掉？

Question

怎么用Delphi将一个文本文档中的空格全部替换掉？

Answer 1

procedure proStringRePlace;
var
  str : String;
begin
  Memo1.Lines.LoadFromFile('test.txt');
  str := Memo1.text;
  str := StringReplace(str,' ','',[rfReplaceall]);
  memo1.text := str;
  Memo1.Lines.SaveToFile(test.txt');
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
ss:Tstringlist;
i:integer;
begin
ss:=TStringlist.Create;
ss.LoadFromFile('d:\test.txt');
for i:=0 to ss.Count-1 do
StringReplace(ss[i],' ','',rfReplaceAll);
ss.SaveToFile('d:\test.txt');
ss.Free;
end;

Answer 3

procedure proStringRePlace;
var
  str : String;
begin
  Memo1.Lines.LoadFromFile('test.txt');
  str := Memo1.text;
  str := StringReplace(str,' ','',[rfReplaceall]);
  memo1.text := str;
  Memo1.Lines.SaveToFile('test.txt');
end;

Answer 4

把中间控件Memo1的visibale设置为false就可以了

Answer 5

var
  ts :Tstringlist ;
  s : string ;
begin
  ts :=Tstringlist.Create ;
  ts.LoadFromFile('test.txt');
  s := StringReplace(ts.Text,' ','',[rfReplaceAll]);
  ts.Text := s ;
  ts.SaveToFile('test.txt') ;
  ts.Free ;
end;

Answer 6

procedure proStringRePlace;
var
  str : String;
begin
  Memo1.Lines.LoadFromFile('test.txt');
  str := Memo1.text;
  str := StringReplace(str,' ','',[rfReplaceall]);
  memo1.text := str;
  Memo1.Lines.SaveToFile(test.txt');
end;

Answer 7

procedure proStringRePlace;
var
  str : String;
begin
  Memo1.Lines.LoadFromFile('test.txt');
  str := Memo1.text;
  str := StringReplace(str,' ','',[rfReplaceall]);
  memo1.text := str;
  Memo1.Lines.SaveToFile('test.txt');
end;