procedure TForm1.Button1Click(Sender: TObject);
var
item: TListItems;
i, x: integer;
begin
item := ListView1.Items;
x := 0;
for i := 100 downto x do
begin
item.Add;
item.item[x].SubItems.Add(IntToStr(i));
inc(x);
end;
end;
كل من 1 user says قال شكرا ل invocker على المشاركة المفيدة1 user says Thank You to invocker for this post • محمودد
procedure TForm1.Button1Click(Sender: TObject);
var
item: TListItems;
i, x: integer;
begin
item := ListView1.Items;
x := 0;
for i := 100 downto x do
begin
item.Add;
item.item[x].SubItems.Add(IntToStr(i));
inc(x);
end;
end;
شكرا لك لكن إذا كان الارقام موجودة مسبقاً اريد ترتيبها وليس إضافتها بشكل تدريجي
حسنا سوف اضع مشروع المقصود هو ترتيب رقم الطلب بشكل تلقائي من اصغر عدد لأكبر عدد كمل ترى بالصورة ارقام الطلبات مخربطه اريد ان تظهر 1/2/3/4/5/6 هكذا بشكل ترتيب
السلام عليكم
البيانات هل تم ادخالها مسبقا (برمجيا / مصفوفة ) او تم جلبها من قاعدة بيانات ام ماذا
على العموم ارفقت لك مثال يتم جلب بيانات من قاعدة بيانات وترتيبها حسب الرقم على ليست فيو
الفاشلون نوعان : الأول : فكر ولم يفعل .. والآخر: فعل ولم يفكر
كل من 2 users say قال شكرا ل Mr.DOS على المشاركة المفيدة2 users say Thank You to Mr.DOS for this post • محمودد, blackhere
ترتيب الارقام في ليست فيو
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)
![[صورة: 404858198.png]](https://www2.0zz0.com/2021/05/02/18/404858198.png)
![[صورة: p_1948wytvh1.png]](https://f.top4top.io/p_1948wytvh1.png)
![[صورة: p_1951pmylr1.gif]](https://e.top4top.io/p_1951pmylr1.gif)
