Geri Dön   Wardom.Org > Programlama > Delphi

 
Eski22-09-2006, 23:39   #1
Franticorpse
 
Türkçe Karakterleri İngilizce Karakter Yap - Franticorpse
Wink Türkçe Karakterleri İngilizce Karakter Yap

Bu kod Türkçe karakterleri İngilizce karakterlere çevirir ör ; frantiçörpse => franticorspe .

Kod:
function tr2eng(yazi:string):string;
const
  turkharfler  = 'çğıöşüÇĞİÖŞÜ';
  ingharfler   = 'cgiosuCGIOSU';
var
  i:integer;
begin
  result:=yazi;
  for i := 0 to length(yazi) do
    if pos(yazi[i],turkharfler)>0 then
    result[i]:=ingharfler[pos(yazi[i],turkharfler)];
end;
 

Eski17-10-2006, 16:02   #2
_zalim_
 
Türkçe Karakterleri İngilizce Karakter Yap - _zalim_

bu ne ya kardeşaaaaaa
 

Eski17-10-2006, 16:05   #3
huseyun
 
Türkçe Karakterleri İngilizce Karakter Yap - huseyun

zalim bi süredir konulara gerksiz msj lar yazıp duruyousn eğer devem edersen ceza alacaksın ona göre lütfen kurallara uygun davran
 

Cevapla





Şu Anda Konuyu Görüntüleyenler: 1 (0 üye ve 1 misafir)
 

Forum saati Türkiye saatine göredir. GMT +2. Şuan saat: 12:00.
(Türkiye için GMT +2 seçilmelidir.)



pvp serverler, su kaçağı, ukash, kız oyunları, su kaçağı, http://www.antalya-club.com, Erken Rezervasyon, Elektronik Sigara


Paylaşım sitesi Wardom.Org adresinde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetler için iletişim bölümünden bize ulaşabilirsiniz.