Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Memo Zeilenanzahl begrenzen

    Delphi
    by s.h.a.r.k, 11. Mär 2006
  Hey.
  
  Was mir auf die schnelle noch eingefallen ist: Und zwar musst du auch noch drauf aufpassen, dass wenn man einen Text, der von mir aus über die gewünschte Zeilenlänge geht, per Strg+V eingefügt wird dann auch abgefangen wird!
  
  mfg shark
• Forum: Object-Pascal / Delphi-Language

  Re: Memo Zeilenanzahl begrenzen

    Delphi
    by s.h.a.r.k, 11. Mär 2006
  Und zwar kannst du dazu das OnChange-Ereignis verwenden:
  procedure TForm1.Memo1Change(Sender: TObject);
  var
  grenze, i : Integer;
  begin
  // Wie viele Zeilen darf das Memo nicht überschreiten
  grenze := 5;
  if Memo1.Lines.Count > grenze then
  for i := (Memo1.Lines.Count - 1) downto grenze do Memo1.Lines.Delete(i);
  end;