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;
richedit detect dil
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: richedit detect dil
Merhaba,
Aşağıdaki şekilde denediğiniz zaman doğru çalışıyor mu acaba?
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');
Re: richedit detect dil
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,
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,