تفکیک همزمان با ثبت اعداد سه رقمی در فرم

[جواد ملاولی]

سلام دوست عزیز؛ خوبید؟ این تکه برنامه که جواب شماست کار خومه:

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;
procedure Form1.Edit1Change(Sender: TObject);
var i:integer; mystr,s:string;
begin
s:=',';
if Edit1.Text<>'' then
begin
mystr:='';
mystr:=delete_kama(mablagh.Text);
i:=length(mystr);
while i>3 do
begin
insert(s,mystr,i-2);
i:=i-3
end;
mystr:=mystr;
Edit1.Text:=mystr;
Edit1.SelStart:=length(mystr);
end;
end;