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

[m_maj]

با سلام به همه سروران عزیز
یه مشکل دیگه دارم البته تو کد نویسی
من می خوام توی یه edit کاربر فقط بتونه عدد وارد کنه.
اینو می دونم که باید کلید های ورودی رو فیلتر کنم، ولی روش اونو یعنی کد نویسی شو بلد نیستم.
ضمناً کامپوننت دارم واسه این کار ولی از شکل ظاهری شون خوشم نمی یاد.
تازه کار کردن باهاشون هم یکم مشکله.
با تشکر فراوان برای جواب های شما.
به امید دیدار

[blacksun]

دوست عزيز در رويداد KeyPress اديت كد زير رو وارد كنيد
if Not(key in ['0'..'9',chr(vk_back)])then key := #0;

[m_maj]

با سلام به همه و blacksun عزیز که جواب منو داد
با این کد کار می کنم و جواب میدم. اگه مشکلی بود مطرح می کنم.
به امید دیدار

[m_maj]

با سلام خدمت blacksun عزیز
این کدی که دادی رو با کمی تغییر تونستنم ازش استفاده کنم.
ازت خیلی تشکر می کنم.
به امید دیدار.

[sp1000]

با سلام
blacksun جان ، این کدی که شما دادید برای KeyPress است آیا کدی هست که مخصوص OnChange باشه
واضح تر بگویم من یک Edit دارم که به طور خودکار سریال هارد را می گیرد این سریال مخلوطی از عدد و حروف است حالا من
می خواهم که Edit من فقط مقدار های عددی را دریافت کند وبه من نشان دهد
خوشحال می شم اگه کمکم کنی باتشکر خداحافظ

[sp1000]

blacksun جان سلام
چی شد تونستی برایم کدش پیدا کنی
اگه پیدا کردی حتما بذار ممنون

[Nesta_old_User2005]

سلام.
راه بهتر این کار این هست که شما شرط بگذاری که if اگه (غیر از اعداد ) وارد شد پیغامی مبنی بر وارد کردن عدد بده که مثلا یا showmessage or ... و اگه درست بود که هیچ .
اینطوری کاربر متوجه میشه که چه کار کنه .
البته واسه راحتی و زیبا شدن بیشتر هست.

[sp1000]

Nesta_old_User2005عزیز سلام
انگار یا شما منظور مرا نفهمیدی یا من منظور شمارا ؟؟؟ به هر حال واضحتر می گویم
من یک Editدارم که در حالت Disableقرار دارد این Editسریال هارد دیسک را به طور خودکار میگیرد واینطوری به من نشان میدهدمثلا C4E037D6 حالا من می خواهم این Edit فقط مقدار های عددی به من نشان دهد یعنی اینطوری 40376 و حروف را نشان ندهدفکر کنم منطورم را واضح گفتم
از راهنمایی هات ممنون منتطر جواب هستم فعلا خداحافظ

[blacksun]

با سلام
blacksun جان ، این کدی که شما دادید برای KeyPress است آیا کدی هست که مخصوص OnChange باشه
واضح تر بگویم من یک Edit دارم که به طور خودکار سریال هارد را می گیرد این سریال مخلوطی از عدد و حروف است حالا من
می خواهم که Edit من فقط مقدار های عددی را دریافت کند وبه من نشان دهد
خوشحال می شم اگه کمکم کنی باتشکر خداحافظ

دوست عزيز شما مي تونيد از كد زير براي اين كار استفاده كنيد
فقط ببخشيد كه كمي دير شد آخه سرم خيلي شلوغ بود

procedure TForm1.Edit1Change(Sender: TObject);
var
a,temp:string;
i :integer;
begin
a:=Edit1.Text;
for i:=0 to Length(a) do
if (a[i] in ['0'..'9']) then
temp:=temp+a[i];
edit1.Text := temp;
end;

[sp1000]

blacksun عزیز سلام
منطور من همین بود
خدا خیرت بده خیلی خوشحال شدم امتحان می کنم مطما هستم که جواب میده به هرحال متشکرم
بازم خیلی خیلی ممنون فعلا خداحافظ