Пожалуйста, подскажите в чем у меня ошибка?

[wepoTWR]

У меня вот такая задача: "Дана символьная матрица размера 4 х 5. Из последовательности её строк сформировать новую строку и определить ее длину. Проверить наличие символа ‘a’ в ней." Нужно сделать кнопку "Старт", при нажатии на которую выводился бы результат в новую форму. Вывода в новую форму у меня нет, с ним еще не разобрался, пока что пытаюсь хотя бы кнопку "Старт" сделать. Выскакивают эти ошибки:
"[Linker Error] Unresolved external '__InitVCL' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\LIB\CP32MTI .LIB|crtlvcl
[Linker Error] Unresolved external '__ExitVCL' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\LIB\CP32MTI .LIB|crtlvcl
[Linker Error] Unresolved external 'WinMain' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\LIB\C0W32.O BJ"
Может быть кто-нибудь подскажет как исправить?

#include <vcl.h>
#include <iostream.h>
#include <fstream.h>
#include <string.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
freopen("output.txt","w",stdout);
ifstream infile("input.txt");
char s[4][6],st[25],p;
int i,j,ok;
ok=0;
for(i=0;i<4;++i){
for(j=0;j<5;++j){
infile>>s[i][j];
if(s[i][j]=='a') ++ok;
}
s[i][5]=0;
}
if(ok) cout<<"YES"<<endl;
else cout<<"NO"<<endl;
st[0]=0;
for(i=0;i<4;++i)
strcat(st,s[i]);
cout<<strlen(st);
}

[Alex_FF]

в какой среде рисуешь?

[wepoTWR]

всм "в какой среде рисую"?

[Alex_FF]

пишешь на чем? на Builder'e, Visual C++ или еще чем?

[wepoTWR]

а, господи... Builder! я начинающий... у меня программирование серьезно началось только в этом году... поэтому много еще не знаю!

[Alex_FF]

можно, к примеру, так:

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <fstream.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	ifstream fi;
	fi.open("input.txt");
	char m[4][5];
	char s[21];  // одна единица на завершающий 0-символ
	int n = 0;  // это будет длина строки
	bool f = false;
	for (int i =0; i < 4; i++)
		for (int j = 0; j < 5; j++)
			fi >> m[i][j];
	for (int i = 0; i < 4; i++)
		for (int j = 0; j < 5; j++)
			if (m[i][j] == 'a') f = true;
	for (int i = 0; i < 4; i++)
		for (int j = 0; j < 5; j++)
			s[n++] = m[i][j];
	ShowMessage(n);
}
//---------------------------------------------------------------------------

[wepoTWR]

а у меня сегодня такое получилось, тока сильно дроч:

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,y;
a = Edit1 -> Text;
b = Edit2 -> Text;
c = Edit3 -> Text;
d = Edit4 -> Text;
e = Edit5 -> Text;
f = Edit6 -> Text;
g = Edit7 -> Text;
h = Edit8 -> Text;
i = Edit9 -> Text;
j = Edit10 -> Text;
k = Edit11 -> Text;
l = Edit12 -> Text;
m = Edit13 -> Text;
n = Edit14 -> Text;
o = Edit15 -> Text;
p = Edit16 -> Text;
q = Edit17 -> Text;
r = Edit18 -> Text;
s = Edit19 -> Text;
t = Edit20 -> Text;
//AnsiString twr;
//s = Edit1 -> Text;
Edit21->Text = Edit1->Text+Edit2->Text+Edit3->Text+Edit4->Text+Edit5->Text+Edit6->Text+Edit7->Text+Edit8->Text+Edit9->Text+Edit10->Text+Edit11->Text+Edit12->Text+Edit13->Text+Edit14->Text+Edit15->Text+Edit16->Text+Edit17->Text+Edit18->Text+Edit19->Text+Edit20->Text;
                    y = Edit21 -> Text;
    Edit22->Text = String("length of string is: ") + Edit21->Text.Length();
 if  ( AnsiPos("a",y) )
        {
		Edit23->Text = "а is in string";
        }
	else     {
		Edit23->Text = "Error";
                             }
              }

[Alex_FF]

а где у тебя тут матрица?

[wepoTWR]

ну я создал 20 рамок и в каждую вбиваем символ! и в последние он выводит то, что нужно... вроде работает!(: