Delphi Forum

bu code da şöyle bir hata var.
sadece memodaki her satırı 1 tane algiliyor. ayn satırda cok sayıda olabilir.

ferdi agaç, ferdi ağaç, ferdi ağaç
ferdi ağaç

5 tane olması gerek, 2 sayıyor.

yukaridaki işlemde fonksiyonda float degeri integer olarak yakın bir değer veriyor.

asagidaki kodu trackbar1 change ine yazdigimizda integer degil diyor.
TrackBar1.position:=advspinedit1.FloatValue;

acaba trackbar.position unu float degeri olarak nasil tanitabiliriz.

glyph id(glyph index).
font icerisindeki karakter sirasi.
900 karakter, harf varsa.
1 den 900 e kadar mesela.
kac karakter varsa.

memo veya richeditte bu şekilde unicode u belli bir karakteri ekliyorum. richedit1.Lines.Add(#$fef8); fakat bu fontdaki #$fef8 karakterini ben glyph id olarak eklemek istiyorum font editorunde actigimda 576. sirada bu glyph. Aşağıdaki gibi denedim farkli başka karakterleri veriyor. doğru olarak nasi...

memodaki her harfi tek tek kontrol ederek değiştirmek istiyorum.
fonksiyon sadece 1 harfi kontrol edip memoya yaziyor.
halbuki memoda yuzlerce harf olacak.

tam olarak yapmak istedigim bu
https://codegolf.stackexchange.com/ques ... ation-form

length yi kullaninca sadece son karakteri harfi (1 tane olarak) geri ceviriyor memoya. istedigim tüm karakterleri cevirerek memoya yazsin. yani length-1, length-2 length-3 gibi duzelt fonksiyonum soyle function _GetduzeltChar(const AText: string; CharPos: Integer): Char; var Ch : Char; Len : Integer...

for I := memo1.lines.Count - 1 downto 0 do memo1.Lines.Text:=_GetduzeltChar(memo1.Lines.text, 9)); bu kodla memodaki sadece 9. karakteri farkli duzelterek aliyorum. istedigim memodaki tüm karakterleri duzelterek tekrar memoya yazdırmak. asagıdaki gibi birkac sey yaptim beceremedim olmadi. nasil yapa...

merhaba

winxp de ShellExecute komutu kullandigim yapmış oldugum programlar windows 10 da calismiyor.
ayrica Delphi XE2 de windows10 da ShellExecute komutunu calistiramiyorum. win7 de calisiyor.
nasıl bir ayar lazım yardımcı olabilirmisiniz.

tesekkur ederim. fakat degisen bir sey olmadi gene atliyor.
asagidaki gibi bir sey de yaptim olmadi.
// if not CharInSet(Text, CharsToIgnore) then
if (char(Text) <> #13) or (char(Text) <> #10) then

asagidaki hatayi verdi. [DCC Error] TextToSpeechSimpleU.pas(43): E2198 Low cannot be applied to a long string [DCC Error] TextToSpeechSimpleU.pas(43): E2198 High cannot be applied to a long string Text: array of string yaptim. bu seferde bu hatayi verdi. [DCC Error] TextToSpeechSimpleU.pas(45): E225...

projeyi upload ettim bu linkte.
yapamadım.

https://disk.yandex.com.tr/d/k4R2Ie9hcBJ3Kw

ertank, haklısınız fakat nasıl duzeltecegimi bilemiyorum.

spvoice1.Speak (reText.text, SVSFlagsAsync );

bu kodu okuyor. sonra

reText.SetFocus;
reText.SelStart := CharacterPosition;
reText.SelLength := Length;

buraya bir döngü kurmam lazım heralde.

yeterli bence. cunku sadece bu kod calistiriyor. fakat dedigim gibi her satirda secilen kelimeyi bir karakter daha ilerisini seciyor. characterposition unun her satirda -1 geri yapabilirsek belki cozulur. satir 1 de characterposition -1 satir 2 de characterposition -2 satir 3 de characterposition -3...

bir fikri olan veya yardımcı olacak yok mu