Заполнение ListView из БД

@SergejFil · Регистрация: 02.11.2013

Добрый день!

Прошу помощи у тех кто владеет Delfi
Нужно код на дельфи переписать на c++ builder (XE8)

C++

with IBQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM VLADEL');
    Open;
    ListView1.Columns.Add.Caption:= 'Фамилия';
    ListView1.Columns.Add.Caption:= 'Имя';
    ListView1.Columns.Add.Caption:= 'Отчество';
    ListView1.Columns.Add.Caption:= 'Адрес';
    ListView1.Columns.Add.Caption:= 'Телефон';
 while not IBQuery1.Eof
 do begin
    with ListView1.Items.Add
    do begin
      for i := 2 to IBQuery1.Fields.Count - 1
       do begin
         if i = 2
          then Caption := IBQuery1.Fields[i].AsString
          else SubItems.Add(IBQuery1.Fields[i].AsString);
          for j := 0 to ListView1.Columns.Count-1 do
          if Canvas.TextWidth('@' + IBQuery1.Fields[i].AsString + '@') > ListView1.Columns[j].Width
         then ListView1.Columns[j].Width := Canvas.TextWidth('@' + IBQuery1.Fields[i].AsString + '@');
          end;
       end;
         IBQuery1.Next;
 
    end;
     end;

PS Заполнение ListView из базы Access.
Спасибо

Добавлено через 8 часов 10 минут
Кое что переписал но до конца не пойму как цикл переписать. Помогите битте!

C++

qTest->Close();
    qTest->SQL->Clear() ;
    qTest->SQL->Add("SELECT * FROM HomF_std_M");
    qTest->Open;
    ListView1->Columns->Add->Caption = "Фамилия";
    ListView1->Columns->Add->Caption = "Имя";
    ListView1->Columns->Add->Caption = "Отчество";
 
       while(!qTest->Eof)
       {//ListView1->Columns->Add....
 
       //...... цикл не могу подправить
 
 
 
 
 
        if(ListView1->Canvas->TextWidth('@' + qTest->Fields[i]->AsString  + '@') > ListView1->Columns[j].Width)
           {
             ListView1->Columns[j]->Width = ListView1->Canvas->TextWidth('@' + qTest->Fields[i]->AsString + '@');
 
           }
 
 
        qTest->Next();
        }

@volvo · 27.07.2017, 14:41

C++

    qTest->Close();
    qTest->SQL->Clear();
    qTest->SQL->Add("SELECT * FROM VLADEL");
    qTest->Open();
    ListView1->Columns->Add()->Caption = L"Фамилия";
    ListView1->Columns->Add()->Caption = L"Имя";
    ListView1->Columns->Add()->Caption = L"Отчество";
    ListView1->Columns->Add()->Caption = L"Адрес";
    ListView1->Columns->Add()->Caption = L"Телефон";
    while (!qTest->Eof)
    {
        TListItem *li = ListView1->Items->Add();
        for (int i = 2; i < qTest->Fields->Count; i++)
        {
            if (i == 2)
                li->Caption = qTest->Fields->Fields[i]->AsString;
            else
                li->SubItems->Add(qTest->Fields->Fields[i]->AsString);
            for (int j = 0; i < ListView1->Columns->Count; j++)
            {
                if (Canvas->TextWidth("@" + qTest->Fields->Fields[i]->AsString + "@") > ListView1->Columns->Items[j]->Width)
                    ListView1->Columns->Items[j]->Width = Canvas->TextWidth("@" + qTest->Fields->Fields[i]->AsString + "@");
            }
        }
        qTest->Next();
    }

Опции темы