Проблемы с программой

[gsl180]

Хочу написать простенькую программку для просмотра фотографий, но билдер выдает ошибку.

[C++ Error] Unit1.cpp(48): E2089 Identifier 'ListBox1Click' cannot have a type qualifier
[C++ Error] Unit1.cpp(55): E2139 Declaration missing ;
[C++ Error] Unit1.cpp(55): E2134 Compound statement missing }

Посмотрите пожалуйста код программы

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

#include <vcl.h>
#pragma hdrstop
#include<jpeg.hpp>
AnsiString aPath;
TSearchRec aSearchRec;

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Image1->Proportional=true;
if(FindFirst(aPath+"*jpg",faAnyFile,aSearchRec)==0){
ListBox1->Items->Add(aSearchRec.Name);
while(FindNext(aSearchRec)==0){
ListBox1->Items->Add(aSearchRec.Name);}
ListBox1->ItemIndex=0;
Label1->Caption=ListBox1->Items->Strings[0];
Image1->Picture->LoadFromFile(aPath+ListBox1->Items->Strings[0]);}

}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if(OpenDialog1->Execute()){
ListBox1->Clear();
aPath=ExtractFilePath(OpenDialog1->FileName);
Form1->Caption="Просмотр фотографий - "+aPath;
if(FindFirst(aPath+"*jpg",faAnyFile,aSearchRec)==0){
ListBox1->Items->Add(aSearchRec.Name);}
while(FindNext(aSearchRec)==0){
ListBox1->Items->Add(aSearchRec.Name);}
int n = ListBox1->Items->IndexOf(ExtractFileName(OpenDialog1->FileName));
ListBox1->ItemIndex=n;
Label1->Caption=ListBox1->Items->Strings[n];
Image1->Picture->LoadFromFile(aPath+ListBox1->Items->Strings[n]);

}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
int n = ListBox1->ItemIndex;
Label1->Caption=ListBox1->Items->Strings[n];
Image1->Picture->LoadFromFile(aPath+ListBox1->Items->Strings[n]);
}
//---------------------------------------------------------------------------

Билдер показывает, что ошибка связана иммено с обработчиком On Click компонента ListBox1

[p51x]

Вам же написали - забыли поставить закрывающую }

{
if(OpenDialog1->Execute()){
...
if(FindFirst(aPath+"*jpg",faAnyFile,aSearchRec)==0){
ListBox1->Items->Add(aSearchRec.Name);}
while(FindNext(aSearchRec)==0){
ListBox1->Items->Add(aSearchRec.Name);}

}

считайте, сколько открыли и закрыли

[gsl180]

p51x
Спасибо заработало, забыл поставить закрывающую.