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: 13:06.
(Türkiye için GMT +2 seçilmelidir.)



pvp serverler, su kaçağı, ukash, kırmızı shop, kız oyunları, su kaçağı, http://www.antalya-club.com


İçerik sağlayıcı paylaşım sitelerinden biri olan Wardom Internet Adresimizde 5651 Sayılı Kanun’un 8. Maddesine ve T.C.K’nın 125. Maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. Wardom hakkında yapılacak tüm hukuksal şikayetler için webmaster \@wardom.org adresi ile iletişime geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 3 (üç) gün içerisinde Wardom yönetimi olarak tarafımızca gereken işlemler yapılacak ve avukatlarımız size dönüş yapacaktır.