In Memo Feld nach bestimmten Text suchen

[Rolf Hauger]

Wie kann ich in einem Memo Feld nach einem bestimmten Text suchen und diese Textzeile dann an eine Variable übergeben. Danke

[Jens Schumann]

Hallo Rolf,<br>
auf die Schnelle fällt mit folgendes ein:<br>
<pre>
<font face="Verdana" size="1" color="#000000">procedure TForm1.Button1Click(Sender: TObject);
var
TextStart : Integer;
begin
TextStart:=Pos(AnsiUpperCase(Edit1.Text),AnsiUpper Case(Memo1.Text));
If TextStart&gt;0 then
begin
Memo1.SelStart:=TextStart-1;
Memo1.SelLength:=Length(Edit1.Text);
Label1.Caption:=Memo1.SelText;
end;
end;</font>
</pre>
Jens Schumann<br&gt