Btgunluk.com
Kişisel bir bilişim blogu
Delphi'de Büyük Küçük Harf Dönüştürme
Delphi 7'de Türkçe karakter destekli büyük küçük harf dönüştürme:
Function BuyukKucukHarfDegistir(kelime:string; tip:integer):string; var buyuk, kucuk: string; j, i: integer; Begin { 0 tümü küçük 1 TÜMÜ BÜYÜK 2 Sadece İlk harf büyük 3 Her Kelimenin İlk Harfi Büyük } buyuk:='ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZQWX'; kucuk:='abcçdefgğhıijklmnoöprsştuüvyzqwx'; for i:=length(Kelime) downto 1 do for j:=32 downto 1 do if (kelime[i]=buyuk[j]) or (kelime[i]=kucuk[j]) then case tip of 0: kelime[i]:=kucuk[j]; 1: kelime[i]:=buyuk[j]; 2: if i=1 then kelime[i]:=buyuk[j]; //else // kelime[i]:=kucuk[j]; 3: if i=1 then kelime[i]:=buyuk[j] else if (kelime[i-1]=' ') or (kelime[i-1]='.') then kelime[i]:=buyuk[j] else kelime[i]:=kucuk[j]; end; Result:=kelime; end;
24.04.2020 08:03:21
Etiketler: delphi fonksiyonları
Yorumlar
Bu yazıya henüz yorum yapılmamış.
Yazı hakkında yorum yapmak için, buraya tıklayın.
Kategoriler :
- Bilişim (53)
- C Sharp (1)
- Delphi (44)
- Duyuru (8)
- Excel (8)
- Fıkralar (9)
- Flash (2)
- Javascript (3)
- Kategorisiz (2)
- Kıssa'dan Hisse (5)
- Php (20)
- Program Tanıtımı (1)
- Python (2)
Arşiv :
- Kasım 2008 (11)
- Ekim 2010 (6)
- Kasım 2010 (11)
- Aralık 2010 (3)
- Ocak 2011 (2)
- Mayıs 2011 (1)
- Temmuz 2011 (4)
- Ağustos 2011 (10)
- Ekim 2011 (2)
- Ocak 2012 (2)
- Şubat 2012 (1)
- Mart 2012 (1)
- Nisan 2012 (3)
- Haziran 2012 (2)
- Temmuz 2012 (1)
- Ağustos 2012 (1)
- Kasım 2012 (1)
- Mart 2013 (1)
- Mayıs 2013 (1)
- Temmuz 2013 (1)
- Ekim 2013 (2)
- Kasım 2013 (2)
- Şubat 2014 (1)
- Ekim 2014 (1)
- Kasım 2014 (3)
- Şubat 2015 (1)
- Ağustos 2015 (3)
- Eylül 2015 (1)
- Ekim 2015 (1)
- Ocak 2016 (3)
- Nisan 2016 (1)
- Ekim 2016 (1)
- Aralık 2016 (8)
- Ocak 2017 (27)
- Şubat 2017 (1)
- Haziran 2017 (1)
- Eylül 2017 (1)
- Kasım 2017 (1)
- Ocak 2018 (2)
- Temmuz 2018 (2)
- Kasım 2018 (1)
- Aralık 2018 (1)
- Şubat 2019 (1)
- Ağustos 2019 (2)
- Aralık 2019 (1)
- Ocak 2020 (1)
- Nisan 2020 (10)
- Kasım 2020 (1)
- Aralık 2020 (1)
- Ocak 2021 (1)
- Mayıs 2022 (1)
- Kasım 2022 (1)
- Mart 2023 (1)
- Mayıs 2023 (2)
- Haziran 2023 (1)
- Ocak 2024 (2)
- Temmuz 2024 (1)
- Aralık 2024 (1)
Etiketler :
- 3d acar baltas Android asp.net banana pi c sharp delphi fonksiyonları excel Firefox flash flowplayer ipucu opencv pascal pdf php fonksiyonları python super pi ttnet veritabanı video visual studio Windows word