محدود کردن تکست باکس به اعداد

[admin]

سلام.بله
ابتدا تابع حذف کاما رو* به پروژه اضافه کنید.
روش استفاده :
ابتدا تابع زیر را در قسمت imp پروژه قرار دهید :

کد:

 function delete_kama( s : String):string;

 var p:Integer;
 begin
 for p:=1 to length(s) do
 if s[p]="," then
 delete(s,p,1);
 delete_kama:=s;
 end;

سپس به صورت زیر مثلا در یک DBEdit از آن استفاده می کنیم و همچنین 3 عدد 3 عدد ، اعداد را جداسازی می کنیم:
کد:

procedure TMain.DBEdit1Change(Sender: TObject);
var i:integer;mystr,s:string;
begin
s:=",";
if DBEdit1.Text<>&quot;&quot; then
begin
mystr:=&quot;&quot;;
mystr:=delete_kama(DBEdit1.Text);
i:=length(mystr);
while i>3 do
begin
insert(s,mystr,i-2);
i:=i-3;
end;
mystr:=mystr;
DBEdit1.Text:=mystr;
DBEdit1.SelStart:=length(mystr);
end;

end;

موفق و موید باشید