IdHttp Türkçe problem çözümü

[turkoder]

Bu olay ile ilgili net te yaptığım aramalarda utf8decode vs gibi kullanımlar önerilmiş.

Ben de basit bir fonksiyon ile sorunu çözdüm, aynı sorunu yaşayan var ise faydalansın ve teşekkür etsin yeter. Yalnız bir yerlerde paylaşacaksanız mutlaka alıntı olduğunu yazınız.
 
Aşağıdaki bozuk karakter yerine sizin sorunlu karakterleri koyarsınız.

Kod:

function TForm8.degis(s:string):string;
 var
 sonuc:AnsiString;
 secenek:TReplaceFlags;//unutmayın
 begin
 result:='';
   secenek:=[rfReplaceAll]; //Harf Duyarlılığı var
s:=StringReplace(s,'ý','ı',secenek);  //ÝÞ  Ð
s:=StringReplace(s,'þ','ş',secenek);
s:=StringReplace(s,'ð','ğ',secenek);
s:=StringReplace(s,'Ý','İ',secenek);   // yaðýþ
s:=StringReplace(s,'Þ','Ş',secenek);
s:=StringReplace(s,'Ð','Ğ',secenek);
  result:=s;
 end;

Kullanırken ise :

Kod:

Memo1.Text:=degis(IdHTTP1.Get('http://www.sitelinki.com'));