Ограничение строки delphi

[anthonyk]

Здравствуйте!

Есть простенький код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i,n,k:integer;
begin
  s:=Edit1.Text;
  k:=Edit2.Text;
  n:=length(s);
  For i:=1 to n do
  if s[i]=',' then
    begin
      Label1.Caption:=IntToStr(i);
      exit;
    end;
end;

end.

Подскажите, пожалуйста, можно ли сделать так, чтобы когда я вводил число в Edit2.Text, я не мог ввести в Edit1.Text символов больше чем это число? Чтобы, например, я пишу цифру 8 в Edit2.Text и в Edit1.Text я не могу ввести больше 8 символов. А если символов меньше, то выводилась бы надпись в Label1.Caption что нужно ввести еще столько-то символов. Можно ли такое реализовать?

[phomm]

Свойство эдита MaxLength установить.
Примерно так:

Edit1.MaxLength := StrToIntDef(Edit2.Text, 0);

Сообщение от anthonyk

А если символов меньше, то выводилась бы надпись в Label1.Caption что нужно ввести еще столько-то символов.

Это уже событие повесить OnChange на эдит и в нём проверять. Примерно:

if Length(Edit1.Text)< Edit2.MaxLength then
  Label1.Caption := 'bla';

[anthonyk]

Понял. Спасибо большое!