string ozel silme

[sr1111]

merhaba...
Özel bir silme işlemini yapamadim. Hızlı bir bicimde nasıl yapabilirim. Yapamaya çalıştım fakat beceremedim.
Aşagıdaki gibi memo alanımdaki aynı olan kelimelerden 1 tane kalacak fakat + işareti en sağda olanın kalmasını istiyorum

tirelikelime

abartı+sız
abart+ısız
aba+rtısız
adım+da
ad+ımda
aktör+ü
ak+törü
elçi+lik

sonuç şöyle olmalı

abartı+sız
adım+da
aktör+ü
elçi+lik

[omurolmez]

Sorabilir miyim, ödev mi bu ?

[sr1111]

ödev değil,

[mrmarman]

Merhaba.
(*) son sorduğunuz soru için,
(1) tüm kelimelerden (+) ifadesini kaldırın.
(2) Sorted:= True; ile sıralayın,
(3) sondan başa döngü kurun...
(4) Ardışık olarak aynı olan varsa o satırı silin.

Böylece elinizde aynısından tekil kelimeler elde edersiniz.

(*) Optimizasyondan bahisle sorucam : Bu heceleme alternatiflerini mi tabloda tuttuğuzdan bu kadar kabarık bir satır sayısı yaşıyorsunuz ?

- Basit bir fonkiyon ile heceleme yaptırsanız olmaz mı ? Siz sadece kelimeleri tutun hecelemeyi fonksiyon yapsa. Nasıl yapılır konusunda yardımcı oluruz. Kelimeleri oluşturan harfleri sondan başa doğru adımlayın. Her adımda bir önceki harf sesli harf midir sorgulayın. Eğer sesli harf ise, üzerinde olduğunuz harf yeni hecenin ilk harfidir. Önceki sessiz harf ise bir geri daha gidersiniz.

[sr1111]

(1) tüm kelimelerden (+) ifadesini kaldırın.
(2) Sorted:= True; ile sıralayın,
(3) sondan başa döngü kurun...
(4) Ardışık olarak aynı olan varsa o satırı silin.

biraz geç gördüm ama,
tesekkurler aynı şekilde yapmışım bende. sonuca ulaştım.
heceleme değildi hocam.