SelectDerectory C++, проблема в коде

[Dima-91]

Код взят из книги, проблема с SelectDirectory, убрал AnsiString (теперь String aPath), вопрос не решен. Подскажите что делать. Ошибку записал в коде. #include <FileCtrl.hpp> #include <jpeg.hpp> добавлены.

#include <vcl.h>
#pragma hdrstop

#include "li.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String aPath;
TSearchRec aSearchRec;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	aPath = "";
    FirstPicture();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	if (SelectDirectory ("Выбирите файл, в котором "
		"находятся иллюстрации", "", aPath) != 0)
	{
		aPath = aPath +"\\";
		if (FirstPicture()) CheckBox1->Enabled = true;
		else
		Label1->Caption = "В каталоге " + aPath + "нет jpg-иллюстраций.";
	}
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::FirstPicture()
{
	Image1->Visible = false;
	Button2->Enabled = false;
	CheckBox1->Enabled = false;
	CheckBox1->Checked = false;
	Label1->Caption = "";
	if (FindFirst(aPath + "*.jpg",faAnyFile,aSearchRec) == 0)
	{
		Image1->Picture->LoadFromFile(aPath+aSearchRec.Name);
		Image1->Visible = true;
		Label1->Caption = aPath + aSearchRec.Name;
		if (FindNext(aSearchRec)==0)
		{
			Button2->Enabled = true;
			CheckBox1->Enabled = true;
			return true;
		}
		else return false;
	}
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::NextPicture()
{
	Image1->Picture->LoadFromFile(aPath + aSearchRec.Name);
	Label1->Caption = aPath + aSearchRec.Name;
	if (FindNext(aSearchRec)!=0)
	{
		Button2->Enabled = false;
		CheckBox1->Enabled = false;
		return false;
	}
	else return true;
}

[ilink32 Error] Error: Unresolved external '__fastcall Vcl::Filectrl::SelectDirectory(Syst em::UnicodeString,
System::WideString, System::UnicodeString&, System::Set<Vcl::Filectrl::TSelectD irExtOpt, 0, 5>, Vcl::Controls::TWinControl *)'

[Stilet]

По-моему у тебя параметры не все указаны: http://docwiki.embarcadero.com/CodeE..._%28C%2B%2B%29

[Dima-91]

Не знаю как, но вопрос решил. Все работает. Возможно из-за библиотеки #include <Vcl.CheckLst.hpp> добавилась после добавления компонента TChechListBox и манипуляций с проектом(сохранить->компилировать, удалить TChechListBox сохранить->компилировать).