Woerter in Memo suchen, wie viel gefunden, welche Zeile

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