Kopierlänge Edit1 beschränken !

[Alterauge]

Hallo,

kopiere aus einer Listbox die Zeile in ein Edit.
Im Edit1 sollen aber nur die ersten 7 Zeichen zu sehen sein.

Beispiel Text Listbox 1234567ABCDE
Das Ergenis Edit: 1234567

Delphi-Quellcode:

Edit1.MaxLength := 7;
Edit1.Text:=Listbox1.Items[ListBox1.Itemindex];

[Volker Z.]

Hallo,

aus der OH

Zitat:

Wenn Sie MaxLength und einen Text zuweisen, wird existierender Text nicht abgeschnitten. Der Benutzer wird nur daran gehindert, weitere Zeichen einzugeben, nachdem das Limit von MaxLength Zeichen erreicht wurde.

also

Delphi-Quellcode:

Edit1.MaxLength := 7;
Edit1.Text:= Copy (Listbox1.Items[ListBox1.Itemindex], 1, Edit1.MaxLength);

Gruß

[Alterauge]

OK!
Danke für Deinen Hinweis!

Gruß