Форум программистов, компьютерный форум, киберфорум
Наши страницы

помогите исправить ошибку в программе - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Функция с использованием массивов http://www.cyberforum.ru/cpp-beginners/thread391583.html
Помогите написать функцию,которая вставляет элементы в монотонно возрастающую последовательность с сохранением сортировки!
C++ Двумерный массив (ЗАдача) Помогите! Дан двумерный массив (8,8). Найти максимальный элемент среди элементов строк Задачу нужно написать на языке Си http://www.cyberforum.ru/cpp-beginners/thread391578.html
C++ Вычисление и вывод на экран таблицы функций.
Кто чем сможет подсказать, и помочь? Вычислить и вывести на экран таблицу функции y=f(x) в интервале с шагом h. Использовать два метода (с применением for и while). Результаты представить в виде...
Отсортировать массив по последней цифре его элементов C++
ВСем привет тут такая задача Заполнить массив из 10 элементов случайными числами в интервале и отсортировать его по последней цифре. Пример: Исходный массив: 14 25 13 30 76 58 32 ...
C++ Массив.Посчтитать количество согласных букв. http://www.cyberforum.ru/cpp-beginners/thread391531.html
Помогите пожалуйста решить такое задание: Дан массив из слов (в одной строке одно слово). Определить количество согласных букв в каждом из слов.
C++ Помогите решать задачку в C++ Пожалуйста, помогите решать задачку. Разработать алгоритм и программу решений следующих задач: Описать функцию Fib(N) целого типа, вычисляющую N-й элемент последовательности чисел Фибоначчи Fk,... подробнее

Показать сообщение отдельно
lexflax
10 / 10 / 1
Регистрация: 03.04.2011
Сообщений: 627

помогите исправить ошибку в программе - C++

25.11.2011, 15:33. Просмотров 302. Ответов 0
Метки (Все метки)

Ошибка в работе программы когда в поиск забиваю человека и нажимаю кнопку поиск прога выдает ошибку и не выполняется в какой строчке ошибка написал красным а саму ошибку вывел картинкой как и внешний вид формы, помогите исправить ошибку пожалуйста
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
#include <vcl.h>
#pragma hdrstop
#include <io.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
struct man
{
        AnsiString fio;
        AnsiString date;
        AnsiString time;
} m[1000];
 
int C = 0;
 
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SearchRec(AnsiString Dname)
{
        if (DirectoryExists("List\\" + Dname))
        {
                Button3->Show();
                FileListBox1->Mask = "List\\";
                FileListBox1->Mask = FileListBox1->Mask + Dname + "\\*.*";
                for (int i=0,k=0; i < FileListBox1->Items->Count; i++)
                {
                        Search->Lines->Add("Дата: " + FileListBox1->Items->Strings[i]);
                        buf->Lines->LoadFromFile("List\\" + Dname + "\\" + FileListBox1->Items->Strings[i]);
                        Search->Lines->Add("Посещений: " + (AnsiString)buf->Lines->Count);
                        k += buf->Lines->Count;
                        Search->Lines->Add(buf->Lines->Text);
                        Search->Lines->Delete(Search->Lines->Count-1);
                        Search->Lines->Add("=================================");
                        Count->Caption = k;
                }
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveRec(AnsiString Dname,AnsiString Fname,AnsiString time)
{
        CreateDir("List\\" + Dname);
        Fname = "List\\" + Dname + "\\" + Fname;
        buf->Clear();
        if (access(Fname.c_str(),0) == 0)
        {
                buf->Lines->LoadFromFile(Fname);
                buf->Lines->Add(time);
                buf->Lines->SaveToFile(Fname);
        }
        else
        {
                buf->Lines->Add(time);
                buf->Lines->SaveToFile(Fname);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        MkDir("List");
        if ((access("List\\db.txt",0)) == 0)
        {
                db->Lines->LoadFromFile("List\\db.txt");
                Rec->Caption = db->Lines->Count/3;
                for (int i=0,j=0; j < db->Lines->Count;i++,j+=3)
                {
                        m[i].fio = db->Lines->Strings[j];
                        m[i].date = db->Lines->Strings[j+1];
                        m[i].time = db->Lines->Strings[j+2];
                        Spisok->Lines->Add("Ф.И.О: " + m[i].fio);
                        Spisok->Lines->Add("Дата: " + m[i].date);
                        Spisok->Lines->Add("Время: " + m[i].time);
                        Spisok->Lines->Add("=================================");
                }
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if (FIO1->Text == "")
                ShowMessage("Введите Ф.И.О!");
        else
        {
                C = (db->Lines->Count/3);
                m[C].fio = FIO1->Text;
                m[C].date = DateTimePicker1->Date.DateString();
                m[C].time = DateTimePicker2->Time.TimeString();
                Spisok->Lines->Add("Ф.И.О: " + m[C].fio);
                Spisok->Lines->Add("Дата: " + m[C].date);
                Spisok->Lines->Add("Время: " + m[C].time);
                Spisok->Lines->Add("=================================");
                db->Lines->Add(FIO1->Text);
                db->Lines->Add(DateTimePicker1->Date);
                db->Lines->Add(DateTimePicker2->Time);
                Rec->Caption = db->Lines->Count/3;
                db->Lines->SaveToFile("List\\db.txt");
                SaveRec(m[C].fio,m[C].date,m[C].time);
                FIO1->Clear();
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Button3->Hide();
        Count->Caption = 0;
        Search->Clear();
        if (FIO2->Text == "")
                ShowMessage("Введите Ф.И.О!");
        else
                SearchRec(FIO2->Text);[COLOR="Red"]Вот эту строчку подчеркивает красным и выдвает ошибку[/COLOR]
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
        if (Button3->Caption == "Подробно=>")
        {
                Form1->ClientWidth = 730;
                Search->Show();
                Button3->Caption = "<=Скрыть";
        }
        else
        {
                Form1->ClientWidth = 500;
                Search->Hide();
                Button3->Caption = "Подробно=>";
        }
}
0
Миниатюры
помогите исправить ошибку в программе   помогите исправить ошибку в программе  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru