怎么删除TMEMO某行中指定得单词啊？

Question

如题

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  TempStr: string;
begin
//  Self.Memo1.ClearSelection;
  TempStr := Memo1.Text;
  TempStr := StringReplace(TempStr,Edit1.Text,'', [rfReplaceAll]);
  Memo1.Text:= TempStr;
end;

Answer 2

memo1.Clear;
  memo1.Lines.Add('memo1');
  memo1.Lines.Add('memo2,memo3');
  memo1.Lines[1]:=stringreplace(memo1.Lines[1],'memo','jinjazz',[rfReplaceAll]);

Answer 3

function replaceline(objMemo:TMemo;rStr1,rStr2:string;l:integer):string;
var
  TempStr :string;
begin
  TempStr := objMemo.Lines.Strings[l];
  TempStr := StringReplace(TempStr,rStr1,rStr2, [rfReplaceAll]);//rStr1被替换 ,rStr2替换后
  result:= TempStr;
end;