منع المسافة داخل Edit1

أستعمل Maskedit من Additional وريح بالك

هي مش خطوة واحدة هتعملها وتريح دماغك لأ

انت لازم تشتغل على onkeypress حدث

وتشوف المستخدم هيضغط إيه وتتعامل معاه

مشكورين الاخوة الاعضاء

حسناً .. بالنسبة

اقتباس

أستعمل Maskedit من Additional وريح بالك

وجدتها ولكن لا أعرف استخدمها بالنسبة لمنع المسافة من اول الكلام

اقتباس

هي مش خطوة واحدة هتعملها وتريح دماغك لأ

انت لازم تشتغل على onkeypress حدث

وتشوف المستخدم هيضغط إيه وتتعامل معاه

ممكن لو تساعدنى بإعطائى البدايه للكود

السلام عليكم,,,

جرب Trim انه تمنع المسافة فى أول ونهاية الكلام

السلام عليكم

جرب :

procedure TForm1.Edit1Change(Sender: TObject);
var
  Str: string;
begin
  str := Edit1.Text;
  if (length(Str) = 1) and (Str[1] in ['0'..'9', ' ']) then
	Edit1.Text := ''
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  Str: string;
begin
  str := Edit1.Text;
  if (Key = ' ') and (Str[length(Str)] = ' ') then
	key := char(0);
end;

مشكورين جميعاً

قمت بوضع الكود تبع Source code

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  Str: string;
begin
  str := Edit1.Text;
  if (Key = ' ') and (Str[length(Str)] = ' ') then
	key := char(0);
end;

نفع تمام لى استفسار بسيط ؟ هذا منع جميع المسافات فى الجملة .. كيف لى انا اسمح بالمسافه بعد أول حرف ولا يمكن تكرير المسافه أيضاً يعنى بإمكان المستخدم كتابة كلمة وبعدها مسافة وبعدها كلمة أخرى ( مع ملاحظة عدم تمكينة من وضع مسافتين متتاليتين)

عذراً شباب لانى ميش قوى بالدلفى

انت اخذت جزء من الكود اللي كتبتة لك

جرب الأثنين مع بعض

الأول : OnChange

لمنع المسافة والأرقام في البداية

الثاني : OnKeyPress

لمنع كتابة الماسافة مرتين

و ان شاء الله يعمل معاك بدون مشاكل .

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

الكود يعمل بنجاح

وجدت مشكلة به لكن قام احد الأصدقاء بحلها الحمد لله وهى خاصة بالمسافة بعد أخر الكلمة

procedure TForm1.Button1Click(Sender: TObject);
 Var FoundB : boolean;
  I,J : integer;
  Res : string;
begin
 foundB := false;

 I := length(Edit1.Text);
 While (I > 0) and (Not foundB) do
  begin
   if Edit1.Text <> ' '
	then foundB := True
	else I := I-1;
  end;

 label1.Caption := IntToStr(I);

 Res := Edit1.Text;
 setlength(Res,I);

 edit1.Text := Res;
end;

الكود للإستفادة