Woerter in Memo suchen, wie viel gefunden, welche Zeile

[Praxist]

Hallo

ich moechte beim Suchen nach einem Wort in Memo mehr Informationen anzeigen lassen
Ich lade den Text von einem .txt in Memo1 und dann wird nach dem Wort gesucht

Das Ergebnis soll in mehrere Edits angezeigt werden, z.B.

In Edit1 : In Welche Memo-Zeile ist das 1. gefunde Wort
In Edit2 : In Welche Memo-Zeile ist das 1. gefunde Wort

...
Editx : wie viel Woerter wurden gefunden

Kann jemand mir helfen?

Ich verwende diesen Code :
http://www.swissdelphicenter.ch/en/showcode.php?id=2136

[DeddyH]

Wieso die Ausgabe in Edits? Du weißt doch gar nicht, wieviele Fundstellen es gibt, Du müsstest die Edits also dynamisch erzeugen, das finde ich nicht sonderlich elegant. Du könntest stattdessen doch z.B. eine Listbox nehmen. Aus dem Kopf:

Delphi-Quellcode:

var i: integer;
begin
  ListBoxZeilen.Items.BeginUpdate;
  try
    ListBoxZeilen.Items.Clear;
    for i := 0 to Memo.Lines.Count - 1 do
      //wenn Groß- und Kleinschreibung berücksichtigt werden soll, AnsiContainsText durch AnsiContainsStr ersetzen 
      if {StrUtils.}AnsiContainsText(Memo.Lines[i],Suchtext) then
        ListBoxZeilen.Items.Add(Format('Gefunden in Zeile %d',[i]));
  finally
    ListBoxZeilen.Items.EndUpdate;
  end;
end;

Die Anzahl der Funde steht dann in ListBoxZeilen.Items.Count.

[Klaus01]

In etwa sollte es so aussehen:

Delphi-Quellcode:

for i:=0 to Memo1.lines.count -1 do
  if pos(Memo1.lines[i],suchwort) > 0 then
     // suchwort in Zeile i gefunden

Wobei pos auch etwas findet wenn das Suchwort nur ein
Teil eines ganzen Wortes ist.

Grüße
Klaus