Mega Code Archive

 

Categories / Delphi / OOP

 

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

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;