türkçe karakter problemi

[delphiX14]

üstadlar hepinize kolay gelsin
basit bir sorun gibi gözüküyor ama çözemedim


  test := 'ACİL ağrı IĞDIR' ;
  ShowMessage(AnsiLowerCase(test));
   test:= (StringReplace(test, 'İ', 'i',[rfReplaceAll, rfIgnoreCase]));
   test:= (StringReplace(test, 'I', 'ı',[rfReplaceAll, rfIgnoreCase])); // bu seferde i ler ı dönüşüyor
  ShowMessage(ansilowercase(test));

[frmman]

Şu şekilde istediğiniz sonucu alabilirsiniz.

procedure TForm1.Button2Click(Sender: TObject);
 function TR_lowercase(const S: string): string;
 const
   BH = 'ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ';
   KH = 'abcçdefgğhıijklmnoöprsştuüvyz';
 var
   I: Integer;
 begin
   Result := S;
   for I := 1 to Length(BH) do
     Result := StringReplace(Result, BH[I], KH[I], [rfReplaceAll]);
 end;

var
 test1: string;

begin
 test1 := 'ACİL ağrı IĞDIR';
 test1 := TR_lowercase(test1);
 ShowMessage(test1); // acil ağrı ığdır
end;

[RAD Coder]

Çok uzun süredir bu sorun artık Delphi'de yok! 

   

[frmman]

Biz uzun yoldan gitmişiz, @RAD Coder otobandan kestirme yolu gösterdi

[delphiX14]

çok teşekkür ederim. her ikiside çözdü. ama ToLower gayet kısa
ellerinize sağlık