读取一个文本文件,再这个文件中找到自己要找的字符串后,用另一个字符串代替,要怎么做?

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
//  Memo1.Lines.LoadFromFile('C:\Temp.txt');
  Memo1.Text := StringReplace(Memo1.Text, '#', '＃', [rfReplaceAll]);
//                                         ~原字符
//  Memo1.Lines.SaveToFile('C:\Temp.txt');
end;

Answer 1

DELPHI中没有LEFT、RIGHT，只能用COPY，要不然的话，就只好自己写一个用了。

Answer 2

那VB中的left,right函数在Delphi中是怎么表示的?

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('<你的文件名>');
  Memo1.Text := StringReplace(Memo1.Text, '#', '＃', [rfReplaceAll]);
  Memo1.Lines.SaveToFile('<你的文件名>');
end; //////////////////////////////////
uses
  StrUtils; //for Delphi6LeftStr()//left for vb
RightStr()//Right for vb

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
//不要Memo一样
  with TStringList.Create do try
    Lines.LoadFromFile('<你的文件名>');
    Text := StringReplace(Memo1.Text, '#', '＃', [rfReplaceAll]);
    Lines.SaveToFile('<你的文件名>');
  finally
    Free;
  end;
end; 

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
//不要Memo一样
  with TStringList.Create do try
    LoadFromFile('<你的文件名>');
    Text := StringReplace(Text, '#', '＃', [rfReplaceAll]);
    SaveToFile('<你的文件名>');
  finally
    Free;
  end;
end;