ListView problem

Programiram u VB-u 3-4 godine.Firma u kojoj radim se opredelila za Delphi.Sad sam u fazi
privikavnja.U VB-u sam se puno služio sa ListView kontrolom, pa sad to radim i u Delphiju.Provalio sam na koji način da ubacujem vrednosti u ListView, ali problem mi je kako da ih isčitam iz List-a i upišem u bazu.Upis u bazu nije problem.Evo koda u VB-u.Kako bi on izgledao u Delphiju?Unapred hvala.

Private Sub cmdSpremi_Click()
Dim iBrojac As Integer
Dim intg As Integer
Set rsUnos = New ADODB.Recordset
rsUnos.Open _
"Select * From tblUnos order by UnosID", cn, adOpenKeyset, adLockOptimistic
For iBrojac = 1 To ListView.ListItems.Count
With rsUnos
If .BOF = True And .EOF = True Then
intg = 0
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(1))
!Filter = (ListView.ListItems(iBrojac).SubItems(2))
!Firma2 = (ListView.ListItems(iBrojac).SubItems(3))
.Update
Else
.MoveLast
intg = !UnosID
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(1))
!Filter = (ListView.ListItems(iBrojac).SubItems(2))
!Firma2 = (ListView.ListItems(iBrojac).SubItems(3))
.Update
End If
End With
Next

For iBrojac = 1 To ListView.ListItems.Count
If ListView.ListItems(iBrojac).SubItems(2) = "duguje" Then
With rsUnos
.MoveLast
intg = !UnosID
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(3))
!Filter = "potrazuje"
!Firma2 = (ListView.ListItems(iBrojac).SubItems(1))
.Update
End With
Else
With rsUnos
.MoveLast
intg = !UnosID
.AddNew
!UnosID = intg + 1
!Firma1 = (ListView.ListItems(iBrojac).SubItems(3))
!Filter = "duguje"
!Firma2 = (ListView.ListItems(iBrojac).SubItems(1))
.Update
End With
End If
Next
Unload Me
End Sub

Pomaže li ovo:



ss.

Potpis

When something is hard to do, then it's not worth doing.

To sam i ja probao,ali nije radilo.Ali evo kako sam rešio.Baza je Adventage.

datamodule1.AdstblUnos.Append;
datamodule1.AdstblUnos.FieldByName('UnosID').Value:=intg+1;
datamodule1.AdstblUnos.FieldByName('Firma1').Value:=ListView.Items.Item [iBrojac].SubItems.Strings[1];
datamodule1.AdstblUnos.FieldByName('Filter').Value:='POTRAZUJE';
datamodule1.AdstblUnos.FieldByName('Firma2').Value:=ListView.Items.Item[iBrojac].Caption;
datamodule1.AdstblUnos.Post;
Ipak hvala!

Pogrešan kod.Evo pravi.
datamodule1.AdstblUnos.Append;
datamodule1.AdstblUnos.FieldByName('UnosID').Value:=intg+1;
datamodule1.AdstblUnos.FieldByName('Firma1').Value:=ListView.Items.Item[iBrojac].Caption;
datamodule1.AdstblUnos.FieldByName('Filter').Value:=ListView.Items.Item[iBrojac].SubItems.Strings[0];
datamodule1.AdstblUnos.FieldByName('Firma2').Value:=ListView.Items.Item[iBrojac].SubItems.Strings[1];
datamodule1.AdstblUnos.Post;