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.
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 :
Memo1.Text:=degis(IdHTTP1.Get('http://www.sitelinki.com'));