سه رقم سه رقم جدا کردن ارقام ریالی در دلفی

[m59alizadeh]

چطور میشه ارقام رو بصورت سه رقم سه رقم جدا کرد و در Edit و Grid نمایش داد .

[lord_viper]

سلام
ببین این به کارت میاد البته باید یه مقدار توش تغییر ایجاد کنی

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
s,d:string;
begin
a:=length(edit1.Text);
repeat
s:=copy(edit1.Text,a-3,3);
listbox1.Items.Add(s);
a:=a-3
until
a<3;
end;

[kamran11958]

اين اكتيو ايكس هم هست:
http://www.takclick.com/modules.php?name...cle&sid=71

[m59alizadeh]

خیلی ممنون دوست عزیز و سپاسگزارم من از همون کد اولی الگو گرفتم و مشکلم حل شد .