Memo durchsuchen - Zeile in anderes Memo

[marabu]

Hallo,

Pos() liefert dir die Position in der Zeile i, an der dein gesuchter Text beginnt - oder 0, wenn ich deiner Online Hilfe glauben darf.

Delphi-Quellcode:

begin
  Memo3.Lines.Clear;
  for i:=0 to Memo1.Lines.Count-1 do 
  begin
    zz := Pos('presolved problem has', Memo1.Lines[i]);
    if zz > 0 then
    begin
      Memo3.Lines.Add(Copy(Memo1.Lines[i], 23, 3));
      Exit;
    end;
  end;
end;

Grüße vom marabu