Comment limiter le nombre de lignes et de caractères par ligne dans un composant TMemo

Question

I Vous devez limiter le nombre de lignes et de caractères par ligne dans un composant TMemo.

exemple un j'aime faire quelque chose comme ceci:

Memo1.MaxLines:=20; 
Memo1.CharsByLine:=80; 

comment je peux le faire en delphi?

Answer 1

Il y a quelques problèmes non résolus ... comme ce qui se passerait si vous assignez la valeur memo1.lines.text avec un gros bloc de texte? Souhaitez-vous que des erreurs se produisent, les données devant être forcées jusqu'à 80 caractères/ligne ...

Il semble que vous ayez besoin d'un contrôle de traitement de texte au lieu d'un TMemo. Découvrez http://www.TRichView.com ou http://www.wpcubed.com/

Answer 2

Je ne crois pas qu'il y ait un moyen facile de le faire, je l'ai mis un événement OnKeyPress avant que les tentatives de limiter (je ne sais pas s'il gère coller dans le texte)

procedure AddressMemoOnKeyPressEvent(Sender: TObject; var Key: Char); 
var 
    i, lineCount: Integer; 
begin 
    with Sender as TMemo do 
    begin 
     if (Key <> #13) and (Key <> #8) and (Length(Lines[CaretPos.Y]) >= MAX_CHARS_PER_LINE_IN_MEMO) then 
     Key := #0; 

     lineCount := 0; 
     for i := 1 to Length(TMemo(Sender).Lines.Text) do 
     begin 
     if (TMemo(Sender).Lines.Text[i] = #13) then 
      Inc(lineCount); 
     end; 

     if (Key = #13) AND (Key <> #8) AND (lineCount >= MAX_LINES_PER_MEMO - 1) then 
     Key := #0; 

     // if we got past the last line, no key can be entered... 
     if (CaretPos.Y >= MAX_LINES_PER_MEMO) then 
     Key := #0; 
    end; 
end;