+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : طريقة لحساب عدد الاحرف في Edit (/showthread.php?tid=4349)
طريقة لحساب عدد الاحرف في Edit - M_Mori2010 - 13-07-2012
السلام عليكم ورحمة الله وبركاته
هل من طريقة لحساب عدد الاحرف المدخل في ايدت في حال ضعط بوتون
واذا كان عدد الاحرف المدخل اقل من 5 حروف يعرض الرسالة التالية :
' قم بأدخال خمس حروف على الاقل '
وجزاكم الله كل خير
طريقة لحساب عدد الاحرف في Edit - sa7er100 - 13-07-2012
وعليكم السلام ورحمة الله وبركاته
هل وجدت طريقة لعمل اكثر من غرفة بنفس الاتصال ؟؟؟
بالنسة لعدد الاحرف الطريقة سهلة ..
عليك ان تتعلم برمجة باسكال لكي تستطيع كتابة البرنامج بدون اخطاء وتفهم عمل كل حرف
هذا الكود اذا كان edit1 فارغ او فيه اكثر من 15 حرف تظهر الرسالة التالية
if (length(edit1.text)=0) or (length(edit1.text)=15) then
begin
messagedlg('الرجاء ادخال اسم الصحيح',mtWarning,[mbOK],0);
edit1.SetFocus;
طريقة لحساب عدد الاحرف في Edit - M_Mori2010 - 13-07-2012
مشكور اخ ساحر اذا كان لديك احد كتب تعلم باسكال فلا بئس انا هاوي تعلم البرمجة بشكل صحيح جزاك الله كل خير
طريقة لحساب عدد الاحرف في Edit - alouma - 13-07-2012
السلام عليكم
يمكنك استعمال هذا الكود
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;
طريقة لحساب عدد الاحرف في Edit - onexite - 18-07-2012
length(Edit1.Text)>5
تفي بالغرض