bestimmte Wörter im Memo suchen

[delphiUser88]

Delphi-Quellcode:

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
sZB                    : String;




function Between(const s, sLeft, sRight: String): String;
var
  iLeft, iRight: Integer;
begin

  iLeft := Pos(sLeft, s);
  if iLeft > 0 then
  begin
    Inc(iLeft, Length(sLeft));
    iRight := PosEx(sRight, s, iLeft);
    if iRight > 0
      then sZB := Copy(s, iLeft, iRight - iLeft)
      else sZB := ''
  end else sZB := '';
end;


procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
slDat: TStringList;
begin

slDat := TStringList.Create;
slDat.Clear;

for i := 0 to RichEdit1.Lines.Count -1 do
begin

Between(RichEdit1.Lines.Strings[i], '(', ')');
slDat.Add(sZB);
sZB := '';

end;//schleife


end;

Ich schaue so langsam durch