طريقة لحساب عدد الاحرف في Edit

[alouma]

السلام عليكم

يمكنك استعمال هذا الكود

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var s,i: integer;
begin
s:=0;
for i:= 1 to length(Edit1.Text) do
s:=s+1;
if s<=5 then
showmessage('The text you entered less than 5 characters')
else 
showmessage(inttostr(s));


end;