richedit detect dil

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
sr1111
Üye
Mesajlar: 220
Kayıt: 06 Mar 2008 01:59

richedit detect dil

Mesaj gönderen sr1111 »

richeditte karisik arapca turkce bir metnim var. üzerine tiklayinca arapca mi turkce mi nasıl anlayabilirim.
soyle bir sey yaptim ama olmadi.
richeditin caret ine mi nereye ne yapmam lazim.

procedure TForm1.RichEdit1Click(Sender: TObject);
var
i:integer;
begin
for I := 0 to richedit1.lines.Count - 1 do
begin
if richedit1.BiDiMode=bdRightToLeft then
showmessage('arabic')
else
showmessage('arabic değil')
end;
end;
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: richedit detect dil

Mesaj gönderen ertank »

Merhaba,

Aşağıdaki şekilde denediğiniz zaman doğru çalışıyor mu acaba?

Kod: Tümünü seç

  if RichEdit1.SelAttributes.Charset = ARABIC_CHARSET then
    ShowMessage('Arabic')
  else
    ShowMessage('Normal');
sr1111
Üye
Mesajlar: 220
Kayıt: 06 Mar 2008 01:59

Re: richedit detect dil

Mesaj gönderen sr1111 »

cok tesekkur eder'm calisti. devamindaki islemi yapamadim su sekilde
asagidaki metnim. arapcaların basladıgı ve bittigi yere parantez veya bir sembol koymak istiyorum

Allah Teâlâ şöyle buyurdu: إنَّمَا مَثَلُ الْحَيَاةِ الدُّنْيَا Dünya hayatının misali, كَمَاءٍ bir su gibidir ki,

bu gibi olsun

Allah Teâlâ şöyle buyurdu: (إنَّمَا مَثَلُ الْحَيَاةِ الدُّنْيَا) Dünya hayatının misali, (كَمَاءٍ) bir su gibidir ki,
Cevapla