چطور میشه ارقام رو بصورت سه رقم سه رقم جدا کرد و در Edit و Grid نمایش داد .
سلام
ببین این به کارت میاد البته باید یه مقدار توش تغییر ایجاد کنی
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;
خیلی ممنون دوست عزیز و سپاسگزارم من از همون کد اولی الگو گرفتم و مشکلم حل شد .