Kelime Değiştirme

[baqz]

(07-02-2018, Saat: 01:34)hyperxman Adlı Kullanıcıdan Alıntı: Allah allah yaw, az önce onu kodluyordum. Kalp kalbe karşı imiş

var
 UpdatelenmisHali: String;
begin
 UpdatelenmisHali := StringReplace(Memo1.Lines.Text, 'Merhaba', 'Selam', [rfReplaceAll, rfIgnoreCase]);
 ShowMessage(UpdatelenmisHali);
end;

 Kod için teşekkürler, yazmış olduğunuz kodu fonksiyona çevirecek olursam;

Function KelimeDegistir(KaynakYazi, DegisecekOlan, DegismesiGereken: String): String;
var
S1: String;
begin
S1 := StringReplace(KaynakYazi, DegisecekOlan, DegismesiGereken, [rfReplaceAll, rfIgnoreCase]);
Result := S1;
end;