Hallo, ich möchte die Eingabe auf x Lines in einem Memo begrenzen. Kann jemand helfen ? Danke.
Announcement
Collapse
No announcement yet.
Lines in Memo begrenzen.
Collapse
X
-
<pre><font size="2" face="Verdana"><code>Hallo Rene,
probiers doch mal damit :</code></font></pre>
<pre><font size="2" face="Verdana"><code>
</code></font><font color="#800000" size="2" face="Verdana"><code><b>unit</b></code></font><font
size="2" face="Verdana"><code> Unit1;
</code></font><font color="#800000" size="2" face="Verdana"><code><b>interface</b></code></font><font
size="2" face="Verdana"><code>
</code></font><font color="#800000" size="2" face="Verdana"><code><b>uses</b></code></font><font
size="2" face="Verdana"><code>
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
</code></font><font color="#800000" size="2" face="Verdana"><code><b>const</b></code></font><font
size="2" face="Verdana"><code>
MaxMemoLines = </code></font><font color="#008000" size="2"
face="Verdana"><code><b>5</b></code></font><font size="2"
face="Verdana"><code>;
</code></font><font color="#800000" size="2" face="Verdana"><code><b>type</b></code></font><font
size="2" face="Verdana"><code>
TForm1 = </code></font><font color="#800000" size="2"
face="Verdana"><code><b>class</b></code></font><font size="2"
face="Verdana"><code>(TForm)
Memo1: TMemo;
</code></font><font color="#800000" size="2" face="Verdana"><code><b>procedure</b></code></font><font
size="2" face="Verdana"><code> Memo1Change(Sender: TObject);
</code></font><font color="#800000" size="2" face="Verdana"><code><b>private</b></code></font><font
size="2" face="Verdana"><code>
</code></font><font color="#000080" size="2" face="Verdana"><code><b>{ Private-Deklarationen }</b></code></font><font
size="2" face="Verdana"><code>
FTmpText : </code></font><font color="#800000" size="2"
face="Verdana"><code><b>String</b></code></font><font size="2"
face="Verdana"><code>;
</code></font><font color="#800000" size="2" face="Verdana"><code><b>public</b></code></font><font
size="2" face="Verdana"><code>
</code></font><font color="#000080" size="2" face="Verdana"><code><b>{ Public-Deklarationen }</b></code></font><font
size="2" face="Verdana"><code>
</code></font><font color="#800000" size="2" face="Verdana"><code><b>end</b></code></font><font
size="2" face="Verdana"><code>;
</code></font><font color="#800000" size="2" face="Verdana"><code><b>var</b></code></font><font
size="2" face="Verdana"><code>
Form1: TForm1;
</code></font><font color="#800000" size="2" face="Verdana"><code><b>implementation</b></code></font><font
size="2" face="Verdana"><code>
</code></font><font color="#000080" size="2" face="Verdana"><code><b>{$R *.DFM}</b></code></font><font
size="2" face="Verdana"><code>
</code></font><font color="#800000" size="2" face="Verdana"><code><b>procedure</b></code></font><font
size="2" face="Verdana"><code> TForm1.Memo1Change(Sender: TObject);
</code></font><font color="#800000" size="2" face="Verdana"><code><b>begin</b></code></font><font
size="2" face="Verdana"><code>
</code></font><font color="#800000" size="2" face="Verdana"><code><b>If</b></code></font><font
size="2" face="Verdana"><code> Memo1.Lines.Count>MaxMemoLines </code></font><font
color="#800000" size="2" face="Verdana"><code><b>then</b></code></font><font
size="2" face="Verdana"><code>
Memo1.Text:=FTmpText;
FTmpText:=Memo1.Text;
</code></font><font color="#800000" size="2" face="Verdana"><code><b>end</b></code></font><font
size="2" face="Verdana"><code>;</code></font><font
face="Courier New"><code>
</code></font><font color="#800000" face="Courier New"><code><b>end</b></code></font><font
face="Courier New">
:-) Jens Schumann
</font></pre>


Comment