２つ質問させてください。delphi暦極僅かです。
delphi6 personalです。
１．メモで、連続改行を指定回数以上できないようにしたいので、
その方法を教えてください。
２．同じくメモで、すべての行末に指定した同じ文字列を追加したい
場合の凡例を教えて頂きたいのですが。
以上、初心者ですがよろしくお願いします。
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;
1.の場合の追加。
Form1の KeyPreviewを True にしてね。
１の場合は、
「連続改行を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です。
ありがとうございます。１，２共、解決できました。
あと、もしよろしければ、↓もお願いします。
１の改行の件で、
ファイルを開いたときや、コピーされたときにも、
空行をｎ行以下になるよう削除したいので、
ボタン押したら空行を検索して削除する方法をお願いします。
素人連続質問でもうしわけございませんが、よろしくお願いします。
上の１、２を理解できれば、あとはできるはずです。
上の２では、
上から順に、各行の末尾へ文字列を追加する。
です。
各行をループで調べられる(かつ、上から順に調べられるので、空行の連続が簡単に調べられる)ことがわかります。
これを踏まえて、次のように処理できますね。
順に調べて、空行でなければ空行カウントを０にする。
空行ならば、空行カウントを１進めて、
もし空行カウントがｎ以上であれば、現在の行を削除し、空行カウントを１戻す。
です。
ただし、削除するとLines.Countも変わるので、できればLines.Count-1から初めて、for i:=Memo1.Lines.Count-1 downto 0 とした方が楽です。
つまり、下から順に調べる、ということです。
少し違う方向から見るならば、(n+2)行以上の改行を、(n+1)行の改行に置き換える、とも言い換えられます。
# 先頭行のみ違います
たとえば、n=2だとして、２行までの空行を許すとすると、
abc[改行][改行][改行]def[改行]
は許されます。
abc[改行][改行][改行][改行]def[改行]
は、abcの後の改行が１回多いです。
abc[改行][改行][改行][改行][改行]def[改行]
は、abcの後の改行が２回多いです。
４回改行でも、５回改行でも、必ず３回までにするのなら、４回改行を３回改行に置き換えられるだけ置き換えればよいのです。
abc[改行][改行][改行][改行][改行]def[改行]
の、[改行][改行][改行][改行]を、[改行][改行][改行]に置き換えれば、
abc[改行][改行][改行][改行]def[改行]
になります。
さらに置き換えれば、
abc[改行][改行][改行]def[改行]
となります。
これ以上は、４回の改行が見つからないので終了です。
こちらの場合は、Whileループで、Pos関数の戻り値が0以上なら繰り返すようにして、Pos関数で改行が繰り返されている箇所を探し、その部分をSelLengthで指定してSelTextで置き換えてしまえばOkのはず。
# 未確認です。アイデアだけですみません。
これで解らなければ、わからない箇所について聞いてください。