Son kez anlatayım.
Eger bu heceleme için aldığımız değişken memo1.ext den geliyorsa, şöyle yapacağız.
Kod: Tümünü seç
s1:=memo1.text; // memo1.text te olan yazıyı s1 e aktardık.
s1:=trim(stringreplace(s1,'.','',[rfRepaceAll]); //noktaları sildik
s1:=trim(stringreplace(s1,',','',[rfRepaceAll]); //virgulleri sildik
s1:=trim(stringreplace(s1,' ','',[rfRepaceAll]);//bosluklari sildik
memo2.text:=s1; // s1 deki temizlenmiş yazıyı memo2.text e aktardık.
Kod: Tümünü seç
// tek satırda yapılabilir, ama yeni başlayan biri için anlaması daha zor olabilir.
memo2.text:=trim(stringreplace(stringreplace((stringreplace(memo1.text,' ','',[rfRepaceAll]),',','',[rfRepaceAll]),'.','',[rfRepaceAll]));