ListView Caption a database den veri çekme

[hido]

Merhaba, ListView Caption kısmına bir türlü database deki verileri çekemiyorum ya sadece ilk veriyi yada hiç veri gelmiyor sorun nedir acaba?

Kod: Tümünü seç

var
  i: integer;
begin
  try
    ListView2.Items.Clear;
    with Form1.ARABA do
    begin
      Close;
      SQL.Text := 'Select * From ARABA where MODEL like ' +
        QuotedStr('%' + Edit2.Text + '%') + ' order by ID DESC';
      Open;
      while Not Eof do
      begin
        with ListView2.Items.Add do
        begin
          ListView2.Items.Caption (FieldByName('PLAKA').AsString);   

          SubItems.Add(FieldByName('ID').AsString);
        end;
        Next;
      end;
      Close;
      Active := False;
    end;
  except
    Application.MessageBox('Bir sorun oldu:)))!',
      'Uyarı!', MB_Ok or MB_ICONQUESTION);
  end;
end;

[xxxjedixxx]

Merhaba,
ListView2.Items.Caption ('34plaka34'); ifadesi yanlış bir ifade.
ListView2.Items[<index>].Caption := '34Plaka34'; şeklinde kullanılır.

Kodunuzu aşağıdaki gibi düzeltirseniz çalışacaktır.

Kod: Tümünü seç

        ...
        with ListView2.Items.Add do
        begin
          Caption := FieldByName('PLAKA').AsString;   
          SubItems.Add(FieldByName('ID').AsString);
        end;
        ...

veya bu şekilde

Kod: Tümünü seç

var Tmpitem: TListItem;
     
      ...
      while Not Eof do
      begin
        TmpItem := ListView2.Items.Add;
        TmpItem.Caption := FieldByName('PLAKA').AsString;
        TmpItem.SubItems.Add(FieldByName('ID').AsString);
        Next;
      end;
      ...