nicht nur erstes Vorkommnis in Memo markieren

[lkz633]

Hallo,

markiere mit

Code:

procedure Tfmain.tv_listChange(Sender: TObject; Node: TTreeNode);
begin
  memo.SelStart:= pos(node.Text,memo.Lines.Text);
  memo.SelLength:= length(node.text);
end;

einen ausgewaehlten Eintrag in einem Memo.

Ich wuerde jetzt gerne alle Vorkommnise und nicht nur das Erste Auftreten markieren.

Wie geht dies?

Gruss und Dank
lkz633

[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]

[Christian Seehase]

Moin lkz,

wenn Du etwas markieren willst, solltest Du ein RichEdit nehmen.

@SirThornberry:
Sind Dir die Delphi Tags ausgegangen

So mit Memo.Lines.Text zu arbeiten, ist übrigens eine prima Möglichkeit das Programm langsam zu machen. Text wird bei jedem Lesezugriff aus den Lines aufgebaut.
Am besten vorher in eine Stringvariable laden, und dann die Schleife mit diesem String abarbeiten. Die gefundenen Positionen entsprechen ja denen im Memo, wenn man -1 rechnet.

Übrigens noch ein Argument für RichEdit. Das kennt die Methode FindText.

[lkz633]

Hallo,

wollte das auch schon mit einer while Schleife machen, aber was ist dann die Abbruchbedingung? So ist es eine Endlosschleife.

Gruss lkz633

[Alexander]

while pos(node.Text,copy(memo.Lines.Text, i, length(memo.lines.text))) > 0 do Hier steht doch das wenn die erste Fundstelle größer als 0, dann soll er weitermachen, sonst nicht.
Wieso Endlosschleife?

[lkz633]

Code:

    
memo.SelStart:= 1;
while (pos(node.Text,copy(memo.Lines.Text, memo.SelStart, length(memo.lines.text))) > 0)  do
  begin
    memo.SelStart:= pos(node.Text,copy(memo.Lines.Text.selstart length(memo.lines.text))) ;
    memo.SelLength:= length(node.text);
  end;

Es faengt immer wieder von vorne an, so dass es zu einer Endlosschleife kommt

[Alexander]

Arg ist auch logisch, weil er immer wieder von vorn anfängt.
Kopier den Inahlt am besten in eine Variabel und lasse daraus immer den letzten Teil löschen...

[lkz633]

Dann stimmen aber die Indizes nicht mehr ueberein.

Weiss denn nimand eine Loesung?

Gruss lkz633

[Alexander]

mhm stimmt das war mist.
Aber wie wäre es wenn du statt COPY eine Integer Variabel einsetzt?
Und die dann in der Schleife veränderst, damit er weiterkommt...

[Christian Seehase]

Moin lkz,

so geht's:

Delphi-Quellcode:

var
  sText      : string;
  sSearch    : string;
  sDel       : string;
  iSearchLen : integer;
  iPos       : integer;

begin
  sSearch    := 'test';
  iSearchLen := length(sSearch);
  // nur um zu zeigen, dass es geht, besser wäre #00 statt '9'
  sDel       := StringOfChar('9',iSearchLen);
  sText      := Memo1.Lines.Text;
  Memo1.SelStart := 0;
  iPos := pos(sSearch,sText);
  Memo1.Lines.BeginUpdate;
  try
    while (iPos > 0)  do begin
      // Da SelStart bei 0 anfängt, ein Index im String aber bei iPos-1
      Memo1.SelStart  := iPos-1;
      Memo1.SelLength := iSearchLen;
      // Suchbegriff im String löschen
      CopyMemory(@sText[iPos],@sDel[1],iSearchLen);
      iPos := pos(sSearch,sText);
    end;
    // nur um zu zeigen, dass es geht
    Memo1.Lines.Text := sText;
  finally
    Memo1.Lines.EndUpdate;
  end;
end;

Hilft Dir aber nicht wirklich, da Du ja in einem Memo nichts markieren kannst.