html işlerinden pek anlamadığım için şöyle bişey yaptım.
Kod: Tümünü seç
s := StringReplace(Memo2.Text,'ı','ı',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'İ','İ',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'ÄŸ','ğ',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'Ä','Ğ',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'ü','ü',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'Ü','Ü',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'ÅŸ','ş',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'Å','Ş',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'ö','ö',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'Ö','Ö',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'ç','ç',[rfReplaceAll, rfIgnoreCase]);
s := StringReplace(s,'Ç','Ç',[rfReplaceAll, rfIgnoreCase]);
Memo2.Text := s;
uses'a strutils eklemek gerekiyor tabii.