سلام
كد زير را در رويداد onchange يك edit بنويس در خروجي سرقمي جدا مي شود
var
s:string;
i:Integer;
begin
s:='';
if Edit2.Text>''then
begin
for i:=0 to Length(Edit2.Text)do
if Edit2.Text[i]in['0'..'9']then
s:=s+edit2.Text[i];
Edit2.Text:=FormatFloat('#,',StrToInt64(s))...