Degistirme

[Laz61]

Merhabalar

Richeditte kelimede en son yazilan harfi bir önceki harfle (kontrol ederek) karsilastirarak degistirmek istiyorum. Mesela: 'Merhabalar'daki en son harf 'a' ve 'r' harfleridir. Burada r ile a harfini degistirerek yerlerine iki harf yazmak istiyorum. Devamli kelimede yazilan en son harfler karsilastirilarak bir baska harflerle degistirilecek. Herhangi bir kelime veya bir harf degil. Kelimenin veya kelimelerin son iki harfleri.

Hosca kalin

[Laz61]

Arkadaslar Merhaba

Meramimi asagidaki sekilde (degistirme haric) cözdüm. Bu koda ekleyecek baska bir yöntem ve tavsiyelerinizi bekliyorum.

procedure TForm1.Button2Click(Sender: TObject);
begin
Richedit1.setfocus;
RichEdit1.selstart:=length(Richedit1.Text);
edit1.text:=inttostr(strtoint(edit1.text)-2);

Richedit1.selstart:=strtoint(edit1.text);
Richedit1.sellength:=strtoint(Edit2.text);
end;

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
Edit1.Text:=IntToStr(Richedit1.SelStart);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Richedit1.setfocus;
RichEdit1.selstart:=length(Richedit1.Text);
end;
end.

Hosca kalin