String

[maisam_ok]

توسط سورس کد زیر میتوانید در edit.text فقط عدد وارد کنید.


var i:integer;
s:string;
begin
for i:=1 to length(edit1.Text) do
if (edit1.Text[i]<'0') or (edit1.Text[i]>'9') then
begin
s:=edit1.Text;
delete(s,i,1);
edit1.Text:=s;
if length(edit1.Text)>0 then
begin
edit1.SelectAll;
edit1.CutToClipboard;
edit1.PasteFromClipboard;
end;
end;
end;

[Delphi Skyline]

با تشکر اما عنوان مناسب انتخاب کنید .

[babak_delphi]

کد زیر به کاربر اجازه وارد کردن عدد رو نمی ده

if Pos(Key,#13#8'1234567890') <> 0 then Key := #0;
این کد رو تو OnKeyDown بنویسید
:wink:
این بهتره