Bestimmten String zählen?

[SirThornberry]

ganz einfach:

Delphi-Quellcode:

var LText  : String;
    LCount,
    LPos   : Integer;
begin
  LCount := 0;
  LText := Memo1.Lines.Text;
  LPos := PosEx('TeilString', LText, 1);
  while (LPos > 0) do
  begin
    inc(LCount);
    LPos := PosEx('TeilString', LText, LPos + 1);
  end;
  showmessage('Der String wurde ' + IntToStr(LCount) + ' mal gefunden.');
end;