Memo durchsuchen - Zeile in anderes Memo

[marabu]

Wenn die Zahl, die du ins Memo3 übernommen hast, auch auf einem Label87 erscheinen soll, dann so:

Delphi-Quellcode:

var
  s: String;
  n: Integer;
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
      s := Copy(Memo1.Lines[i], 23, 3);
      // n := StrToIntDef(s, -1);
      Memo3.Lines.Add(s);
      Label87.Caption := s;
      Exit;
    end;
  end;
end;

Freundliche Grüße