Delphi-PRAXiS - Delphi Maximale Zeichen eines Edit ermitteln...

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Library: Object-Pascal / Delphi-Language (https://www.delphipraxis.net/35-library-object-pascal-delphi-language/)

- - Delphi Maximale Zeichen eines Edit ermitteln... (https://www.delphipraxis.net/722-maximale-zeichen-eines-edit-ermitteln.html)

Daniel B

28. Aug 2002 20:30

Maximale Zeichen eines Edit ermitteln...

und in einem Label anzeigen. Nicht vergessen, MaxLength im OI setzen.

Code:

			[b]procedure[/b] TForm1.Edit1Change(Sender: TObject);

[b]var[/b]

  i: integer;

[b]begin[/b]

  i := Edit1.MaxLength - Length(Edit1.Text);

  Label1.Caption := 'Nur noch ' + IntToStr(i) + ' Zeichen!';

[b]end[/b];

Alle Zeitangaben in WEZ +1. Es ist jetzt 18:19 Uhr.