stringlist kelime sorunum

[sr1111]

s.a
yardimci olursaniz sevinirim.
memoda asagidaki gibi kelimelerim var. yapmak istedigim q,w,x karakterleri olan satirlarin hemen altina kelimenin copyasini nasil cogaltirim. altta yaptim fakat memonun en sonuna ekliyor. benim istedigim stringlist sort etmeden harf sirasi olmadan sirayi bozmadan hemen altina nasil cogaltirim.

wasington
boston
word
ofis
paris
excel
quantum

sc := TStringlist.Create;
sc.Text:=memo1.Lines.Text;
for n := 0 to sc.Count -1 do
if ((Pos('w', sc[n]) > 1) or (Pos('q', sc[n]) > 1) or (Pos('x', sc[n]) > 1)) then
sc.Add(sc[n]);
memo1.lines.text:sc.text;

istedigim asagidaki gibi olmali memo
wasington
wasington
boston
word
word
ofis
paris
excel
excel
quantum
quantum

[unicorn64]

1- memonun satırları üzerinden döngü kur,

2- satırı stringe at
3- stringi stringliste ekle
4- string içinde istediğin harfi ara (pos)
- varsa stringi tekrar stringliste ekle

5-stringlisti memoya aktar

[sr1111]

tesekkurler de zaten dediklerinizi ilk mesajimda yaptim.
en alt satira eklemesini istemiyorum.

soylediklerinize bir döngü kurabilirmisiniz.
benim yukaridaki yaptigim olmadi.

[Battosai]

Add() yerine aşığıdaki metotdu kullan....

Kod: Tümünü seç

sc.insert(index,'Değer');

[sr1111]

Add() yerine aşığıdaki metotdu kullan....

Kod: Tümünü seç

sc.insert(index,'Değer');

tesekkur ederim. istediğim oldu. hemen o satirin altina kopyaladi
sadece bu satiri degsitirdim.
sc.ada yerine sc.insert(n+1,sc[n]);

bir sorunum daha var asagidaki uygulama harfleri ceviriyor. ben kelime olarak cevirmek istiyorum
elmaci yerine armutlar degismeli nerede sorun yapiyorum.

function Cevir(s: string): string;
const
s1 = 'elmacı';
s2 = 'armutları;
var
b,h : integer;
begin
result:=s;
for h:=1 to length(s) do
begin
b:=pos(s[h],s1);
if b>0 then result[h]:=s2;
end;

[conari]

pos yerine replace kullan.

dosya büyükse alternatif replace fonksiyonları sitede mevcut.