[hooligan'ki]

Добрый День вечер ночь нужна помощь в решении проблемы с созданием действия на кнопку (создать кнопку замены выделенного текста).
код Заранее спасибо горит экзамен!

procedure TForm1.Button7Click(Sender: TObject);
var StartPos, Position, Endpos: integer;
ReplaceText:String;
begin
StartPos:=0;
with RichEdit1 do
begin

endpos:= Length(Text) - startpos;
Position := FindText(Edit3.Text, startpos, endpos, [stMatchCase]);
SetFocus;
SelStart := Position;
SelLength := Length(Edit3.Text);
SelText := ReplaceText;
end;
end;

[lmikle]

Код:

RichEdit1.Lines.Text := 
  Copy(RichEdit1.Lines.Text,1,RichEdit1.SelStart) +
  Edit1.Text +
  Copy(RichEdit1.Lines.Text,RichEdit1.SelStart+RichEdit1.SelLength,Length(RichEdit1.Lines.Text));

Немного неаккуратно (второй кусок), но принцип понятен.

[hooligan'ki]

Ура!! заработало)) правда не совсем так как мне надо, мне этого вполне хватит!!! еще раз спасибо большое))

[hooligan'ki]

только вот у меня заменяется одна буква, а мне надо, чтобы целое выделенное слово изменялось)
P.S: Я просто не особо разбираюсь по делфи...