[控件]Memo中替换指定行的内容

实际项目遇到的,比如在Memo里面第一行里有个逗号, 想替换成空,但是第二行里的不改变。

	procedure TForm1.Button1Click(Sender: TObject);

	var

	  StrBuf:string;

	begin

	  StrBuf:=Memo1.Lines.Strings[0];

	  StrBuf:=StringReplace(StrBuf,',','',[rfReplaceAll, rfIgnoreCase]);

	  Memo1.Lines.Strings[0]:=StrBuf;

	end;
分享到: