Проблемы с компилятором Builder С++ XE8

[Dima-91]

Изучал пример "открытия картинок", потом выключил комп поехал домой, включаю билдер выдает ошибку (уже не помню какую, что то в с/проекты вроде (не обратил внимания просто закрыл)). Билдер запустился, я пару его раз прогнал на перезапуск, второй раз были 2 ошибки, как когда неверные символы используешь в программе. После чего решил добить пример, т.к. не работает 1 функция в нем. Пробую скомпилировать значком, программу компилирует, но окно без приоритета изображения, и Program Reset/pause нет. Тоже самое делаю через Run->Run, все становиться нормально.

//---------------------------------------------------------------------------
#include <jpeg.hpp>
#include <vcl.h>
#pragma hdrstop

#include "izo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString aPath;
TSearchRec aSearchRec;
//---------------------------------------------------------------------------
__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::Button1Click(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);
}


}

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

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
   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]);
}
//---------------------------------------------------------------------------

Может что в коде не так, за одно может скажите, почему не изображает следующую картинку.

[Krasiosoft]

Так будет менять изображения нормально:

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
//   int n = ListBox1->Items->IndexOf(ExtractFileName(OpenDialog1->FileName));
// ListBox1->ItemIndex = n;

        int n = ListBox1->ItemIndex;
        Label1->Caption = ListBox1->Items->Strings[n];
        Image1->Picture->LoadFromFile(aPath+ListBox1->Items->Strings[n]);
}

[Dima-91]

Спасибо, насчет билдера никто не знает?

[Stilet]

Не знает что? Описанная тобой история достойна романов, но в ней нет ничего, чему бы порадовался мсье Пуаро.