Mega Code Archive
Türkçe dos karekterli bilgileri windows karakterine cevirme
<![CDATA[
//Arakadaşlar bu kod Eski programların veritablanlarını okurken
//türkçe karakter sorunlarından sizi kurataracaktır.(Özellike Dbase leri)
//bakisoft@mynet.com.tr
function TURKCEYAP(Deger:String):String ;
var sonuc:byte;
Kitap1:string;
begin
sonuc:=0;
{BÜYÜK [i] HARFİ İÇİN}
Kitap1:=deger;
sonuc:=pos(chr(152),Kitap1);
while sonuc<>0 do begin
delete(Kitap1,sonuc,1);
insert('İ',Kitap1,sonuc);
sonuc:=pos(chr(152),Kitap1);
end;
{BÜYÜK [ç] HARFİ İÇİN}
sonuc:=pos('€',Kitap1);
while sonuc<>0 do begin
delete(Kitap1,sonuc,1);
insert('Ç',Kitap1,sonuc);
sonuc:=pos('€',Kitap1);
end;
{BÜYÜK [ğ] HARFİ İÇİN}
sonuc:=pos('¦',Kitap1);
while sonuc<>0 do begin
delete(Kitap1,sonuc,1);
insert('Ğ',Kitap1,sonuc);
sonuc:=pos('¦',Kitap1);
end;
{BÜYÜK [Ö] HARFİ İÇİN}
sonuc:=pos('™',Kitap1);
while sonuc<>0 do begin
delete(Kitap1,sonuc,1);
insert('Ö',Kitap1,sonuc);
sonuc:=pos('™',Kitap1);
end;
{BÜYÜK [Ü] HARFİ İÇİN}
sonuc:=pos('š',Kitap1);
while sonuc<>0 do begin
delete(Kitap1,sonuc,1);
insert('Ü',Kitap1,sonuc);
sonuc:=pos('š',Kitap1);
end;
{BÜYÜK [Ş] HARFİ İÇİN}
sonuc:=pos('',Kitap1);
while sonuc<>0 do begin
delete(Kitap1,sonuc,1);
insert('Ş',Kitap1,sonuc);
sonuc:=pos('',Kitap1);
end;
Result:=Kitap1;
end;
]]>