Добрый День вечер ночь нужна помощь в решении проблемы с созданием действия на кнопку (создать кнопку замены выделенного текста).
код Заранее спасибо горит экзамен!
Цитата:
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;
|