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

[M_Mori2010]

السلام عليكم ورحمة الله وبركاته

هل من طريقة لحساب عدد الاحرف المدخل في ايدت في حال ضعط بوتون

واذا كان عدد الاحرف المدخل اقل من 5 حروف يعرض الرسالة التالية :

' قم بأدخال خمس حروف على الاقل '

وجزاكم الله كل خير

[sa7er100]

وعليكم السلام ورحمة الله وبركاته

هل وجدت طريقة لعمل اكثر من غرفة بنفس الاتصال ؟؟؟

بالنسة لعدد الاحرف الطريقة سهلة ..
عليك ان تتعلم برمجة باسكال لكي تستطيع كتابة البرنامج بدون اخطاء وتفهم عمل كل حرف
هذا الكود اذا كان edit1 فارغ او فيه اكثر من 15 حرف تظهر الرسالة التالية

if (length(edit1.text)=0) or (length(edit1.text)=15) then
begin
messagedlg('الرجاء ادخال اسم الصحيح',mtWarning,[mbOK],0);
edit1.SetFocus;

[M_Mori2010]

مشكور اخ ساحر اذا كان لديك احد كتب تعلم باسكال فلا بئس انا هاوي تعلم البرمجة بشكل صحيح جزاك الله كل خير

[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; 


[onexite]

length(Edit1.Text)>5
تفي بالغرض