MEMOで連続改行を規制したいんです。と他 (ID:696)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 １の場合は、 「連続改行をn回数以上できない」＝「空行が(ｎ-1)行以上できない」ではないんですか？ abc[改行][改行]では、２回の連続改行。 abc[改行]def[改行]では、１回の改行。 とするのであれば、 procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); var i: integer; strCrLf: string; begin strCrLf := ''; for i := 0 to StrToIntDef(Edit1.Text, 1) - 1 do begin strCrLf := strCrLf + #13#10; end; if Ord(Key) = 13 then begin if Copy(Memo1.Lines.Text, 1 + Memo1.SelStart - Length(strCrLf), Length(strCrLf)) = strCrLf then begin Key := #0; end; end; end; とすれば、Edit1.Textで指定された回数だけの連続改行に制限できます。 このときのForm1.KeyPreviewは、Trueです。