Delhiメモ

9　Editの桁数をチェックをする。

Editの桁数をチェックMaxLength以下だとエラーメッセージを出す。

MaxLength（最大桁数を5と仮定して）

Edit1.MaxLength := 5;

if Length(Edit1.Text) >= Edit1.MaxLength then begin

　ShowMessage('5桁の数値が入力されました。');

else begin

　ShowMessage('5桁以下の数値が入力されました。');

end;