imla kontrolu

[serkand1]

merhaba.
5-6 sayfalik memo icersindeki turkce yaziyi bazi mla noktlama kontrolu yaptiak istiyorum yardimci olursaniz sevinirim.

. ! : ? nokta iki nokta soru isaretinden sonra bolsuk sonra buyuk harfle baslamasi gerekiyor.
bunu nasil yaparim. uppercase komutu veya baska bir yolla ile acaba
turkce harflerede bazen sorun cikiyor onda dolayi wideuppercase kullaninca sorun olmuyor.

[cemaliozan]

Memo'yu satır satır okutup Pos fonksiyonunu kullanacaksın...

Örneğin :

PHP Kodu:

function BuyukHarf(x:string):string;
  var m:integer;t1,t2:string;
begin
  t1:='';t2:='';x:=Trim(x);
  for m:=1 to length(x) do
    begin
      if (x[m]='Ğ') or (x[m]='ğ') then t2:='Ğ' else
      if (x[m]='Ü') or (x[m]='ü') then t2:='Ü' else
      if (x[m]='Ş') or (x[m]='ş') then t2:='Ş' else
      if (x[m]='İ') or (x[m]='i') then t2:='İ' else
      if (x[m]='Ö') or (x[m]='ö') then t2:='Ö' else
      if (x[m]='Ç') or (x[m]='ç') then t2:='Ç' else
      if (x[m]='I') or (x[m]='ı') then t2:='I' else
         t2:=UpCase(x[m]);
         t1:=t1+t2;
    end;
  Result := t1;
end;

function KucukHarf(x:string):string;
  var m:integer;t1,t2:string;
begin
  t1:='';t2:='';x:=Trim(x);
  for m:=1 to length(x) do
    begin
      if (x[m]='Ğ') or (x[m]='ğ') then t2:='ğ' else
      if (x[m]='Ü') or (x[m]='ü') then t2:='ü' else
      if (x[m]='Ş') or (x[m]='ş') then t2:='ş' else
      if (x[m]='İ') or (x[m]='i') then t2:='i' else
      if (x[m]='Ö') or (x[m]='ö') then t2:='ö' else
      if (x[m]='Ç') or (x[m]='ç') then t2:='ç' else
      if (x[m]='I') or (x[m]='ı') then t2:='ı' else
         t2:=LowerCase(x[m]);
         t1:=t1+t2;
    end;
  Result := t1;
end;

function IlkHarfBuyuk(S : String):String;
 Var
   SS : String;

begin
  SS      := BuyukHarf(Copy(S,1,1))+KucukHarf(Copy(S,2,Length(S)));
  Result  := SS;
end;

********************************
  For i:=0 To Memo1.Lines.Count-1 do
  begin
     S  := Memo1.Lines[i];
     P := Pos('.',S);
     if P > 0 then
    begin
      S  := Copy(S,1, (P-1))+'. '+IlkHarfBuyuk(Copy(S,(P+1),1))+  Copy(S,(P+2),Length(S));
      Memo2.Lines.Add(S);
    end else
     Memo2.Lines.Add(S);
  end; 


[cemaliozan]

Yada memo yerine Synedit benzeri bir bileşen kullanıp çok daha fazlasını yapabilirsin...

[serkand1]

tesekkur ederim.
bu fonksiyonu bir butona tiklayinca nasil kullanabilirim.
bir de bu satirda hata verdi
For i:=0 To Memo1.Lines.Count-1 do

bunun daha kisa bir yontemi yok mu. diger soru isaretleri ünlem gibi densonraki harfleride buyutor mu acaba.
bir de sizinstrngleri widestring ve wideuppercase yapacagim. sorun olmaz insallah. tntmemoda kullancagim.

aslinda sorun su bolgesel dil turkcede ikenharfleri buyutor. fakat arapca rusca gibi bir ulke diline alinca buyutmuyor. turkce karakterleri

[cemaliozan]

Serkand1 ben burda işin mantığını göstermek istedim. Olay Pos ve Copy fonksiyonlarında bitiyor.

Pos('aranan','nerde aranacak') şeklinde yazdığımızda aranan, nerde aranacağın içinde varsa bulunduğu pozisyon "0" tabanlı geri dönüyor...

Örneğin :

Var
P : Integer;
Begin
P := Pos('!','Bir Cümleki ! Ne Alamet');
ShowMessage(IntToStr(P)); // 12 olur
end;

Bunu test ediyoruz. if P > 0 then ...

Copy ile String in belli bir bölümünü alıyoruz... Teferruat için çevrim içi yardıma bakın...