ListView problem

[ vexx @ 14.03.2005. 08:58 ] @

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

[ sasas @ 14.03.2005. 09:17 ] @

Pomaže li ovo:

Code:

  rsUnos.Append;
  rsUnos.FieldByName('UnosID').AsInteger := 1;
  rsUnos.FieldByName('Firma1').Asstring := ListView.Items[1].SubItems[0];
  rsUnos.FieldByName('Filter').Asstring := ListView.Items[1].SubItems[1];
  rsUnos.FieldByName('Firma2').Asstring := ListView.Items[1].SubItems[2];
  rsUnos.Post;

ss.

[ vexx @ 15.03.2005. 05:46 ] @

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!

[ vexx @ 15.03.2005. 05:48 ] @

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;

[ bancika @ 15.03.2005. 10:33 ] @

For iBrojac = 1 To ListView.ListItems.Count

u delphiju je od 0 do ListView.Items.Count - 1...