nicht nur erstes Vorkommnis in Memo markieren

[SirThornberry]

Delphi-Quellcode:

var i: Integer;
begin
 i := 1;
 while pos(node.Text,copy(memo.Lines.Text, i, length(memo.lines.text))) > 0 do
 begin
  i := pos(node.Text,copy(memo.Lines.Text, i, length(memo.lines.text))) + 1;
  gefundenpos := i - 1;
  //gefundenes markieren - keine ahnung wie das geht - glaube man kann nur eine zusammenhängende selection machen. Was vielleicht geht die hintergrundfarbe des gefundenen zu ändern
 end;

[edit=Christian Seehase]Delphi-Tags gesetzt. Mfg, Christian Seehase[/edit]