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

@pas|rw · Регистрация: 23.11.2009

Студворк — интернет-сервис помощи студентам

У меня вот такая задача: "Дана символьная матрица размера 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"
Может быть кто-нибудь подскажет как исправить?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#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);
}

@Lord_Voodoo · 09.12.2009, 17:33

pas|rw, у вас код жутко напоминает консольное приложение... куда интересно это cout выводит данные, что вы передаете? вам оконное приложение надо создать или консольное?

@pas|rw · 09.12.2009, 21:14 **[ТС]**

я вот что сделал:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
#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";
                             }
              }

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	09.12.2009, 17:33
	pas\|rw, у вас код жутко напоминает консольное приложение... куда интересно это cout выводит данные, что вы передаете? вам оконное приложение надо создать или консольное? 0