فقط وارد کردن عدد

[MasterData]

ببخشيد ميشه بگين چرا از MaskEdit استفاده نمي كنين؟

[mahdi bg]

سلام


تابع زیر رو توی Change برای هر Edit ی که خواستی فراخوانی کن

تابع ای که استفاده کردم برگشتی(احتمالا در موردش شنیده باشی)
باز هم اگه جایش نامفهوم بود در خدمتم

function TForm1.Check (MyEditText: PChar): string;
begin
if StrLen(MyEditText)=0 then
begin
Check:=MyEditText;
end
else
begin
if not(MyEditText[0] in ['0'..'9']) then
Check:= Check (PChar(copy(MyEditText,2,strlen(MyEditText))))
else
Check:=MyEditText[0]+ Check (PChar(copy(MyEditText,2,strlen(MyEditText))))
end;
end;

نحوه فراخوانی

procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.Text:=CheckNumber(PChar(Edit1.text))
end;

استفاده از توابع بازگشتی حجم کد رو خیلی کم می کنه
بدون Begin و End ها که فقط برای خوانای برنامه گذاشتم تعداد خطوط
برنامه 7 خطه