slet tekst i richedit

Nedenståede kode sletter ikke din sætning, men erstatter den med en blank karakter.
Det er måske ikke den rigtige løsning men den klarer jobbet.
Husk den er casesensitiv.

Stoney


function Search_And_Replace(RichEdit: TRichEdit; SearchText, ReplaceText: string): boolean;
var
  startpos, position, endpos: integer;
begin
  startpos := 0;
  with RichEdit do
  begin
    endpos := Length(RichEdit.Text);
    Lines.BeginUpdate;
    while FindText(SearchText, startpos, endpos, [stMatchCase])<>-1 do
    begin
      endpos  := Length(RichEdit.Text) - startpos;
      position := FindText(SearchText, startpos, endpos, [stMatchCase]);
      Inc(startpos, Length(SearchText));
      SetFocus;
      SelStart  := position;
      SelLength := Length(SearchText);
      richedit.clearselection;
      SelText := ReplaceText;
    end;
    Lines.EndUpdate;
  end;
end;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Search_And_Replace(Richedit1,\'Sætning du vil slette\',\'\');
end;

Tjah.. Funktionen er da nogenlunde, men hvad med bare at benytte sig af muligheden for Delete(Index: Integer)? Det er en standard del af TStrings og vil slette hele linien. :o)

Det er sætninger remis vil slette.


Stoney

Nåh ja. D\'oh.. Sorry.. Det er sgu for tidligt om morgenen.. :P

Det ser ud til at det virker som det skal. Mange tak Stoney!

-Remis