Delphi'de bunu nasıl yaparım

Delphi - String - replace anahtar kelimelerini araştırırsanız bir çok kaynak bulabilirsin.

var
once, sonra : string;

begin
once := 'Ali eve geldi. ';

sonra := StringReplace(once, ' eve ', ' okul',
[rfReplaceAll, rfIgnoreCase]);
ShowMessage('Sonra = '+sonra);
end;


-------------------------------

kelime:='Ali eve gitti.'



yenikelime := ReplaceStr(kelime,'eve','okul');

Delphi konusunda bilgim yok fakat yöntemi söyleyim siz yapın hocam.

İki tane string dizisi oluşturacaksın.
http://www.delphibasics.co.uk/Article.asp?Name=Arrays
1.sinin adı bul
2.sinin adı degistir olsun.
50lik açarsın dizi uzunluğunu ben 3 lük gösteriyorum örnek açısından.
const
bul : array[1..3] of string = ('resim','ad','doktor');
const
degistir : array[1..3] of string = ('fotograf','isim','hekim');

Eş anlamlıları dikkat ettiysen aynı indislere koydum dizi içerisinde. Daha sonra for döngüsüne sok dizi elemanlarını teker teker denesin.

var
i : Integer;

begin
//3kere arama yapsın
For i := 1 to (6 div 2) do
kelime := ReplaceStr(kelime,'bul[i]','degistir[i]');end;

Bu döngü ile örneğin
resim kelimesini bulursa fotoğraf ile
ad kelimesini bulursa isim ile
doktor kelimesini bulursa hekim ile
değiştirecektir.

Not: Delphi konusunda bilgim yok kodsal hatalarım olabilir .

döngüyü 3 kere çalıştırdığın için ilk 3 dize elemanına kadar bakıyor. döngüyü dize sayısı kadar çevir. for i:= 1 to (6div2) do yerine for i:=1 to DIZESAYISI do

şimdi aynı döngü içinde komple metni verdiğin için, dize içinde sırayda değiştiriyor.şöyle garip bir yöntem var en basit haliyle,

procedure TForm1.Button1Click(Sender: TObject);
const
kelimeler : array[0..2] of string  = ('resim','ad','hekim');
esanlamlilar : array[0..2] of string = ('fotograf','isim','doktor');
var
  i,j : Integer;
  metin : string;
begin
  Memo2.Lines.Clear;
  for j := 0 to Memo1.Lines.Count - 1 do
  begin
    metin := Memo1.Lines[j];
    For i := 0 to Length(kelimeler) -1 do
    begin
       if AnsiPos(kelimeler[i],metin)>0 then
        metin := StringReplace(metin ,kelimeler[i],esanlamlilar[i],[rfReplaceAll, rfIgnoreCase])
       else
        metin := StringReplace(metin ,esanlamlilar[i],kelimeler[i],[rfReplaceAll, rfIgnoreCase])
    end;
    memo2.Lines.Add(metin);
  end;
end;

önce kelimeler dizesinde arıyor bulursa değiştiriyor bulamazsa esanlamlilar dizesinde arıyor.