هل يمكن الغاء تفعيل امر المسافة في اول حرف من Edit واخر حرف ؟
|
هل يمكن الغاء تفعيل امر المسافة في اول حرف من Edit واخر حرف ؟
|
22-10-2012, 05:30 PM
السلآم عليكم ورحمة الله وبركاته ...
كيف يمكن الغاء المسافة قبل النص المدخل في Edit اذا وجدت وبعده ايضاً ؟ هل من طريقة اخوتي الكرام ؟ جزاكم الله كل خير اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم 
22-10-2012, 05:48 PM
هل النص المدخل لا يحتوي على مسافات ؟ ( داخل 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;الكود يخبر المستخدم بعدم كتابة اي فراغات اما تعطيل زر المسافة فيوجد مثل هذا الكود لكني لا اتذكرة ( ايضاً اضن انه غير فعال فعندما يعمل المستخدم نسخ ولصق لن يتم حذف الفراغ ) إذا لم تفهم الكود فانا مستعد لشرحه 
22-10-2012, 06:55 PM
استبدل هذا السطر
كود : for i := 0 to Length(Edit1.Text) doبهذا السطر كود : for i := 1 to Length(Edit1.Text) do<< قمت بتغير الـ 0 إلى 1 حيث ان العد يبدا من 1 وليس 0 ( تلخبط علي الامر في لغة آخرى ) لن تلاحظ الامر لني وضعت الجملة Try
22-10-2012, 10:07 PM
(آخر تعديل لهذه المشاركة: 22-10-2012, 10:07 PM بواسطة Najy Ibraheem.)
السلام عليكم...
يمكنك استعمال الدالة Trim لإزالة الفراغات قبل و بعد النص: كود : var MyText: string;
// ...
MyVar := Trim(Edit1.Text);حيث سيحتوي المتغير MyText على النص دون فراغات قبلية و لا فراغات بعدية. نرجو الاستفادة و السلام. |
|
|
