Сначала создается ссылка ref на объект "Справочник.Организации", затем с помощью метода ВыбратьЭлементы(1) открывается справочник (здесь метод написан в стиле 1С, при работе с OLE синтаксис несколько отличается).
Параметр 1 говорит о том, что справочник будет открыт в иерархическом виде, т.е сначала группа, затем элементы. Мне попадалась статья, где автор решает иерархию с помощью рекурсии, после этого дальше я перестал её читать.
Примечание: переменные serv, trade, ref имеют тип Variant. Это означает что такая переменная будет иметь тот тип, который ей вернет функция. А этих типов м.б. много на все случаи жизни, подробнее о Variant можно посмотреть в хелпе BCB, правда на англ. языке.
После открытия справочника начинается перебор его элементов с помощью метода ПолучитьЭлемент();
Если метод возвратит 0, то значит в справочнике элементы кончились и можно выйти из цикла. Для визуализации используется дерево. Вот собственно и всё, довольно просто.
Полный код заголовка и модуля ниже:
Unit1.h
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
TTreeView *TreeView1;
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ImgList.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button2;
TButton *Button1;
TBitBtn *BitBtn1;
TCheckBox *CheckBox1;
TButton *Button3;
TButton *Button4;
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
void __fastcall BitBtn1Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif