Mega Code Archive

 

Categories / Delphi / Strings

 

Kısa ve basit bir kodla replace all nasıl yapılır

{ 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;