{"id":178,"date":"2019-09-30T22:32:19","date_gmt":"2019-09-30T19:32:19","guid":{"rendered":"http:\/\/www.potansif.com\/?p=178"},"modified":"2019-10-01T00:49:53","modified_gmt":"2019-09-30T21:49:53","slug":"editte-turkce-karakter-sorunu","status":"publish","type":"post","link":"http:\/\/www.potansif.com\/?p=178","title":{"rendered":"Edit’te T\u00fcrk\u00e7e Karakter Sorunu"},"content":{"rendered":"

Soru<\/b><\/p>\n

Kullan\u0131c\u0131n\u0131n Edit’e girdi\u011fi harflerin k\u00fc\u00e7\u00fck harf olmas\u0131n\u0131 sa\u011flamak istiyorum. \u0130lk harf b\u00fcy\u00fck olacak fakat “\u0130” olas\u0131 gerekirken “\u0131” olarak yaz\u0131yor. T\u00fcrk\u00e7e karakterle ilgili sorunum var UTF-8’i ara\u015ft\u0131rd\u0131m fakat Firemonkey’de \u00e7\u00f6z\u00fcm bulamad\u0131m, yard\u0131mlar\u0131n\u0131z\u0131 rica ederim.<\/p>\n

function degis(Harf: String): String;\nconst\n  Buyuk: String = 'ABC\u00c7DEFGGHI\u0130JKLMNO\u00d6PRS\u015eTU\u00dcVYZQW';\n  Degis: String = 'abc\u00e7defg\u011fh\u0131ijklmno\u00f6prs\u015ftu\u00fcvyzqw';\nvar\n  N: Integer;\nbegin\n  for N := 1 to Length(Buyuk) do\n    while Pos(Buyuk[N], Harf) > 0 do\n      Harf[Pos(Buyuk[N], Harf)] := Degis[N];\n  Result := AnsiUpperCase(Harf[1]) + Copy(Harf, 2, Length(Harf));\nend;\n\nprocedure TForm1.EditChangeTracking(Sender: TObject);\nbegin\n  if Edit.Text.Length > 0 then begin\n     Edit1.Text := degis(Edit1.Text);\n  end;\nend;<\/code><\/pre>\n
Cevap<\/b><\/p>\n
Belki daha efektif yaz\u0131labilirdi ama “degis” fonksiyonu yerine \u015f\u00f6yle bir fonksiyon ile sorunu \u00e7\u00f6zebilirsiniz;<\/p>\n
function LowerCaseTR(aString: String; aBuyukBasHarf: Boolean = True): String;\nconst\n  K = 'aeirl\u0131dknmyustbo\u00fc\u015fzgh\u00e7\u011fcvp\u00f6fjwx';   \/\/ Harflerin b\u00f6yle s\u0131ralanmas\u0131n\u0131n sebebi\n  B = 'AE\u0130RLIDKNMYUSTBO\u00dc\u015eZGH\u00c7\u011eCVP\u00d6FJWX';   \/\/ bunlar\u0131n T\u00fcrk\u00e7edeki kullan\u0131m s\u0131kl\u0131klar\u0131na g\u00f6redir.\nvar\n  I: Integer;                              \/\/ Saya\u00e7, indis de\u011fi\u015fkeni\n  X: Integer;                              \/\/ Bulunan harfin alfabedeki indis numaras\u0131\nbegin\n  Result := aString;\n  for I := 1 to Result.Length do begin     \/\/ metni harf harf geziyoruz. (Bir rakam ile de kar\u015f\u0131la\u015fabiliriz...)\n      X := pos(Result[I], B);              \/\/ POS, b\u00fcy\u00fck \/ k\u00fc\u00e7\u00fck harfe duyarl\u0131d\u0131r (Case Sensitive). Yani b\u00fcy\u00fckse k\u00fc\u00e7\u00fc\u011f\u00fc, k\u00fc\u00e7\u00fckse b\u00fcy\u00fc\u011f\u00fc vermez.\n      if (X > 0) then Result[I] := K[X];   \/\/ Bulunan karakter alfabemizde varsa, k\u00fc\u00e7\u00fc\u011f\u00fcyle yer de\u011fi\u015ftiriyoruz.\n  end;\n  if (aBuyukBasHarf = True) then\n      for I := 1 to Result.Length do begin \/\/ Metni harf harf geziyoruz\n          X := pos(Result[I], K);          \/\/ Burada harften ba\u015fka bir karakter ile de kar\u015f\u0131la\u015fabiliriz\n          if (X > 0) then begin            \/\/ O nedenle, bulunan karakter bir harf ise X, s\u0131f\u0131rdan b\u00fcy\u00fck olur...\n              Result[I] := B[X];\n              Exit;                        \/\/ \u0130lk harfi b\u00fcy\u00fctt\u00fckten sonra \u00e7\u0131k\u0131yoruz...\n          end;\n      end;\nend;<\/code><\/pre>\n
Bilgi mahiyetinde T\u00fcrk\u00e7e harflerin kullan\u0131m oranlar\u0131n\u0131 g\u00f6steren bilgiler a\u015fa\u011f\u0131da yer al\u0131yor.<\/p>\n
\"\"<\/p>\n
Veri Kayna\u011f\u0131;<\/p>\n