+- 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=4660)
هل يمكن الغاء تفعيل امر المسافة في اول حرف من Edit واخر حرف ؟ - M_Mori2010 - 22-10-2012
السلآم عليكم ورحمة الله وبركاته ...
كيف يمكن الغاء المسافة قبل النص المدخل في Edit اذا وجدت وبعده ايضاً ؟
هل من طريقة اخوتي الكرام ؟
جزاكم الله كل خير
هل يمكن الغاء تفعيل امر المسافة في اول حرف من Edit واخر حرف ؟ - ALmuhhnad - 22-10-2012
هل النص المدخل لا يحتوي على مسافات ؟ ( داخل Edit )
إذا كان كذلك تستطيع عمل هذا في حدث الـOnChange للمكون Edit
كود :
procedure TForm3.Edit1Change(Sender: TObject);
var i : Integer;
begin
try
for i := 0 to Length(Edit1.Text) do
begin
if Edit1.Text[i] = ' ' then
begin
ShowMessage('يجب ان لا يحتوي النص على فراغات');
Edit1.Text := '';
end;
end;
except
end;
end;الكود يخبر المستخدم بعدم كتابة اي فراغات
اما تعطيل زر المسافة فيوجد مثل هذا الكود لكني لا اتذكرة ( ايضاً اضن انه غير فعال فعندما يعمل المستخدم نسخ ولصق لن يتم حذف الفراغ )
إذا لم تفهم الكود فانا مستعد لشرحه
هل يمكن الغاء تفعيل امر المسافة في اول حرف من Edit واخر حرف ؟ - ALmuhhnad - 22-10-2012
استبدل هذا السطر
كود :
for i := 0 to Length(Edit1.Text) doبهذا السطر
كود :
for i := 1 to Length(Edit1.Text) do<< قمت بتغير الـ 0 إلى 1 حيث ان العد يبدا من 1 وليس 0
( تلخبط علي الامر في لغة آخرى )
لن تلاحظ الامر لني وضعت الجملة
Try
هل يمكن الغاء تفعيل امر المسافة في اول حرف من Edit واخر حرف ؟ - Najy Ibraheem - 22-10-2012
السلام عليكم...
يمكنك استعمال الدالة Trim لإزالة الفراغات قبل و بعد النص:
كود :
var MyText: string;
// ...
MyVar := Trim(Edit1.Text);حيث سيحتوي المتغير MyText على النص دون فراغات قبلية و لا فراغات بعدية.
نرجو الاستفادة و السلام.