Text suchen und ersetzen

Reply to Text suchen und ersetzen on Sun, 30 Oct 2005 10:53:27 GMT

..::G-Man::.. — Sun, 30 Oct 2005 10:53:27 GMT

Hallo

ich habe da mal ne frage wie kann ich in einem RichEdit text suchen und ersetzen habe leider nirgendswo etwas dazu finden können.

THX

Mfg Happymax

Reply to Text suchen und ersetzen on Sun, 30 Oct 2005 11:21:57 GMT

akari — Sun, 30 Oct 2005 11:21:57 GMT

Hallo

siehe TRichEdit::FindText() in der BCB-Hilfe

bis bald
akari

Reply to Text suchen und ersetzen on Sun, 30 Oct 2005 11:32:45 GMT

..::G-Man::.. — Sun, 30 Oct 2005 11:32:45 GMT

Ich habe es schon gefunden aber trozdem danke

fals es jemanden interesiert ich habe es so gemacht:

void __fastcall Replace( const AnsiString TextA, const AnsiString TextB)
{
// Suche nach TextA durchführen
  int SelPos = Form1->RichEdit1->Lines->Text.Pos(TextA);
  if (SelPos > 0)
  {
    Form1->RichEdit1->SelStart = SelPos - 1;
    Form1->RichEdit1->SelLength = TextA.Length();
// Ausgewählten Text durch TextB ersetzen
    Form1->RichEdit1->SelText = TextB;
  }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Replace("Hier den zu ersetzenden Text rein","Hier wodurch er ersetzt werden soll");
}