Membuat No Urut Pada Listview di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Membuat No Urut Pada Listview di Delphi. mungkin sudah tidak aneh lagi dengan pembahasan ini tapi saya rasa pasti ada yang membutuhkannya,sempet nyari" tentang ini dalam versi Inndonesia tapi tidak menemukannya. Oleh karena itu saya posting saja tentang No Urut di Listview ini tetnunya dengan pemograman Delphi. mungkin untuk No Urut pada DBGRID sudah dibahas sebelumnya atau pun jika belum dilain kesempatan bisa diposting tapi sebenarnya bagi yang ahli itu sangat mudah, tapi bagaimana dengan newbi ? makanya yang pintar berbagi ilmu untuk saling memberi tahu...

Nah untuk mempermudah pemahaman saya selalu ngasih screenshootnya. mungkin ada kalanya kita menggunakan listview dibandingkan BDGRID ataupun stringgrid, dan oleh karena itu mungkin kita butuh yang namanya No Urut,dan kalaupun data yang diload ke Listview dari database tidak perlu di databasae tersebut Menambahkan Field No Urut karena No Urut ini dibuat menggunakan Coding.

Jika Mau mencoba ini untuk tampilan Formya :

object Form1: TForm1
  Left = 265
  Top = 121
  Width = 379
  Height = 273
  Caption = 'Form Contoh'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 39
    Height = 13
    Caption = 'ID Anda'
  end
  object Label2: TLabel
    Left = 8
    Top = 32
    Width = 55
    Height = 13
    Caption = 'Nama Anda'
  end
  object ListView1: TListView
    Left = 8
    Top = 64
    Width = 354
    Height = 150
    Columns = <
      item
        Caption = 'No.'
      end
      item
        Caption = 'ID Anda'
        Width = 100
      end
      item
        Caption = 'Nama Anda'
        Width = 200
      end>
    GridLines = True
    TabOrder = 0
    ViewStyle = vsReport
  end
  object BitBtn1: TBitBtn
    Left = 200
    Top = 32
    Width = 75
    Height = 25
    Caption = 'Tambahkan'
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object Edit1: TEdit
    Left = 72
    Top = 8
    Width = 121
    Height = 21
    TabOrder = 2
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 72
    Top = 32
    Width = 121
    Height = 21
    TabOrder = 3
    Text = 'Edit2'
  end
end

Dan Ini Coding lengkapnya :

Cukup Sekian dan terima kasih....