Делаю прогу галерея изображений в Embarcadero C++ Builder XE 2011. Не могу понять в чем тут ошибка. Если кто знает подскажите плз!
Пример выполняю по книге Культин Н. Б. Самоучитель C++ Builder. Там походу ошибка в примере. Все сделал как в учебнике. Компиляторр выдает ошибку.
Работа программы такая:
Кнопка Каталог. в реузльтате щелчка по которой появляется стандартное диалоговео окно Выбор папки, позволяет пользователю выбрать каталог , котором находятся иллюстрации. Кнопка Дальше обеспечивает отображение следующей иллюстрации.
Вот скрин окна разрабатываемой программы:



Вот исходный код файла .h:

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TButton *Button2;
    TImage *Image1;
    TLabel *Label1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall Button2Click(TObject *Sender);
private:    // User declarations
public:        // User declarations
    __fastcall TForm1(TComponent* Owner);

    AnsiString aPath;
    TSearchRec aSearchRec;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif


Вот исходный код файла cpp:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "jpeg.hpp"
#include <FileCtrl.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    aPath = "";
    Image1->AutoSize = false;
    Image1->Proportional = true;
    Button2->Enabled = false;
    FirstPicture();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if ((SelectDirectory("Выберите каталог в котором находятся иллюстрации",)
        "",aPath) !=0)
    {
        aPath = aPath + "\\";
        FirstPicture();
    }
}
//---------------------------------------------------------------------------
void TForm1::FirstPicture()
{
    Image1->Visible = false;
    Button2->Enadled = false;
    Label1->Caption = "";

    if (FindFirst(aPath+"*.jpg", faAnyFile, aSearchRec) == 0)
    {
        Image1->Picture->LoadFroamFile(aPath+aSearchRec.Name);
        Image1->Visible = true;
        Label1->Caption = aSearchRec.Name;
        if (FindNext(aSearchRec) == 0)
        {
         Button2->Enabled = true;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Image1->Picture->LoadFroamFile(aPath+aSearchRec.Name);
    Label1->Caption = aSearchRec.Name;
    if (FindNext(aSearchRec) !=0)
    {
     Button2->Enabled = false;
    }
}
//---------------------------------------------------------------------------


Вот скрин с ошибками компилятора:





Это сообщение отредактировал(а) newcodercpp - 5.11.2011, 16:40

Тут явно ошибка


Это добавьте в заголовок формы