Strings suchen und auf zeile prüfen

[chrisw]

Delphi-Quellcode:

  for i := 0 to Memo1.Lines.Count -1 do
  if (pos('name',Memo1.Lines[i] <> 0) and
      (pos('text',Memo1.Lines[i] <> 0) and
      (pos('info',Memo1.Lines[i] <> 0) then 
  begin
    _line := Memo1.Lines[i];
    break; //nicht mehr weitersuchen
  end;