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