{
Coded by Serkan Güneş
Web : http://www.cyberflag.tr.cx
E-Mail : serkan@onlineyazilim.com | sgunes58@yahoo.com |serkan@onlinebilgisayar.com
Not : Kodda bulunan rfReplaceAll komutunu yerine rfIgnoreCase komutunu koyarsanız
o bölümü atla demiş olursunuz...
}
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Text := StringReplace(memo1.Lines.Text,edit1.Text,edit2.Text,[rfReplaceAll]);
end;