Memofeld maxlength verändern, wie?

[happycell]

Hi, wie kann ich von einem edit feld aus die maximale länge eines memofeldes ändern?
Bisher funktioniert es nur so, dass es einmal geändert wird, und dann nicht mehr.

[Sharky]

Zitat von happycell:

....Bisher funktioniert es nur so, dass es einmal geändert wird, und dann nicht mehr....

Hmmm....

bei mir geht das ohne Probleme.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.MaxLength := StrToInt (Edit1.Text);
end;

Wenn natürlich schon mehr Zeichen in dem Memo sind als erlaubt wird muss Du diese vorher löschen.