Memo.Text Schleife

[lbccaleb]

Delphi-Quellcode:

if Pos(d, s) < 1 then begin;
  //fixtext
  exit;
end;

Edit:
in der procedure am start einbauen:

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
 var
  s, d: String;
begin
  s := Memo1.Lines.Text;
  d := '**';
  if Pos(d, s) < 1 then begin;
    //fixtext, selbst weiter bearbeiten
    exit;
  end;
  Delete(s, 1, Pos(d, s) - 1 + Length(d));
  while Pos(#10, s) > 0 do Delete(s, Pos(#10, s), 1);
  while Pos(#13, s) > 0 do Delete(s, Pos(#13, s), 1);
  s := Trim(s);
 Memo1.Lines.SaveToFile(FormatDateTime('yyyy-mm-dd_hh-nn-ss__',now)+(s) + '.txt');
      end;
   end;
end;