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

名前

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

本文 1.の場合 var crCnt : Integer; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin if crCnt >= 5 then begin // 5回まで Key := #0; end else begin inc(crCnt); end; end else begin crCnt := 0; end; end; ------------------------------- 2.の場合 すべてのLineに aStrを追加 for i:=0 to Memo1.Lines.Count-1 do begin Memo1.Lines[i] := Memo1.Lines[i] + aStr; end;