Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Bei Memofeld Zeilen anzahl Beschränken

    Delphi
    by Spezi1980, 19. Aug 2004
  ich würde es über eine while Schleife machen und die überflüssigen Zeilen löschen
  procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
  //prüfen ob mehr Zeilen drin sind und wenn ja löschen
  while (Memo1.lines.Count > 22) do Memo1.lines.delete(21);
  //Falls ein Enter eingegeben wird dieses auch gelöscht
  if (Memo1.Lines.Count=22) and (Key=#13) then Key:=#0;
  end;
  Wenn man nur...