С Новым годом! Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
3 / 3 / 0
Регистрация: 23.05.2012
Сообщений: 195

Не Работает вывод в stringgrid

25.10.2013, 17:08. Показов 753. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте,пожалуйста помогите сделать вывод файла в stringgrid кнопка загрузить завтра курсач а вывод нероботает
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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
// ---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "UfrMain.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrMain *frMain;
Soldiers sold;
 
// ---------------------------------------------------------------------------
__fastcall TfrMain::TfrMain(TComponent* Owner) : TForm(Owner) {
}
 
// ---------------------------------------------------------------------------
void Soldiers::AddSoldier(const Soldier &s) {
    soldiers.push_back(s);
}
 
// ---------------------------------------------------------------------------
bool Soldiers::DeleteSoldier(int index) {
    if (index >= 0 && index < soldiers.size()) {
        soldiers.erase(soldiers.begin() + index);
        return true;
    }
 
    return false;
}
 
// ---------------------------------------------------------------------------
Soldier Soldiers::Get(int index) {
    return soldiers[index];
}
 
// ---------------------------------------------------------------------------
int Soldiers::Find(String name) {
    for (int i = 0; i < soldiers.size(); i++)
        if (soldiers[i].name.Pos(name))
            return i;
 
    return -1;
}
 
// ---------------------------------------------------------------------------
int Soldiers::Count()const {
    return soldiers.size();
}
 
// ---------------------------------------------------------------------------
bool Soldiers::SaveToFile(String filename) {
    TStringList *sl = new TStringList();
 
    for (int i = 0; i < soldiers.size(); i++) {
        sl->Add(soldiers[i].name);
        sl->Add(soldiers[i].tel);
        sl->Add(soldiers[i].address);
        sl->Add(soldiers[i].who);
        sl->Add(soldiers[i].waser);
        sl->Add(soldiers[i].gas);
        sl->Add(soldiers[i].el);
        sl->Add(soldiers[i].telef);
    }
 
    try {
        sl->SaveToFile(filename);
    }
    catch(...) {
        delete sl;
        return false;
    }
 
    delete sl;
    return true;
}
 
// ---------------------------------------------------------------------------
bool Soldiers::LoadFromFile(String name) {
    TStringList *sl = new TStringList();
    Soldier t;
 
    try {
        sl->LoadFromFile(name);
 
        if (sl->Count % 5)
            throw 0;
 
        for (int i = 0; i < sl->Count; i++)
            switch(i % 5) {
            case 0:
                t.name = sl->Strings[i];
                break;
            case 1:
                t.tel = sl->Strings[i];
                break;
            case 2:
                t.address = sl->Strings[i];
                break;
            case 3:
                t.who = sl->Strings[i];
                break;
            case 4:
                t.waser = sl->Strings[i];
                 break;
            case 5:
                t.gas = sl->Strings[i];
                break;
            case 6:
                t.el = sl->Strings[i];
                break;
            case 7:
                t.telef = sl->Strings[i];
 
                AddSoldier(t);
 
                t.name = "";
                t.tel = "";
                t.address = "";
                t.who = "";
                t.waser = "";
                t.gas = "";
                t.el = "";
                t.telef = "";
 
                break;
            }
 
        delete sl;
        return true;
    }
    catch(...) {
        delete sl;
        return false;
    }
}
 
// ---------------------------------------------------------------------------
void __fastcall TfrMain::FormCreate(TObject *Sender) {
    sg->ColWidths[0] = 250;
    sg->ColWidths[1] = 80;
    sg->ColWidths[3] = 90;
    sg->ColWidths[4] = 110;
 
    sg->Cells[0][0] = "ПІБ";
    sg->Cells[1][0] = "Телефон Клієнта";
    sg->Cells[2][0] = "Адрес";
    sg->Cells[3][0] = "Організація";
    sg->Cells[4][0] = "Вода";
    sg->Cells[5][0] = "Газ";
    sg->Cells[6][0] = "Світло";
    sg->Cells[7][0] = "Телефон";
}
 
// ---------------------------------------------------------------------------
void TfrMain::ShowSoldiers() {
    sg->RowCount = sold.Count() + 1;
 
    for (int i = 0; i < sold.Count(); i++) {
        Soldier t = sold.Get(i);
 
        sg->Cells[0][i + 1] = t.name;
        sg->Cells[1][i + 1] = t.tel;
        sg->Cells[2][i + 1] = t.address;
        sg->Cells[3][i + 1] = t.who;
        sg->Cells[4][i + 1] = t.waser;
        sg->Cells[5][i + 1] = t.gas;
        sg->Cells[6][i + 1] = t.el;
        sg->Cells[7][i + 1] = t.telef;
    }
}
// ---------------------------------------------------------------------------
 
void __fastcall TfrMain::btAddClick(TObject *Sender) {
    Soldier t;
 
    t.name = InputBox("ЖЕК", "Уведіть імя", "");
    t.tel = InputBox("ЖЕК", "Уведіть номер телефона", "");
    t.address = InputBox("ЖЕК", "Уведіть адрес", "");
    t.who = InputBox("ЖЕК", "Уведіть організацію", "");
 
 
    sold.AddSoldier(t);
 
    ShowSoldiers();
}
// ---------------------------------------------------------------------------
 
void __fastcall TfrMain::btDeleteClick(TObject *Sender) {
    sold.DeleteSoldier(sg->Row - 1);
 
    ShowSoldiers();
}
// ---------------------------------------------------------------------------
 
void __fastcall TfrMain::btLoadClick(TObject *Sender) {
    if (!op->Execute())
        return;
 
    sold.LoadFromFile(op->FileName);
 
    ShowSoldiers();
}
// ---------------------------------------------------------------------------
 
void __fastcall TfrMain::btSaveClick(TObject *Sender) {
    if (!sv->Execute())
        return;
 
    sold.SaveToFile(sv->FileName);
}
// ---------------------------------------------------------------------------
 
void __fastcall TfrMain::btFindClick(TObject *Sender) {
    String name = InputBox("ЖЕК", "Уведыть імя клієнта", "");
 
    int pos = sold.Find(name);
 
    if (pos < 0)
        ShowMessage("Такого клієнта неіснує");
    else {
        TGridRect SelectedGrid;
        SelectedGrid.Left = SelectedGrid.Right = 0;
        SelectedGrid.Top = SelectedGrid.Bottom = pos + 1;
        sg->Selection = SelectedGrid;
    }
}
// ---------------------------------------------------------------------------
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
//---------------------------------------------------------------------------
 
#ifndef UfrMainH
#define UfrMainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Grids.hpp>
#include <Dialogs.hpp>
 
#include <iostream>
#include <vector>
 
using namespace std;
//---------------------------------------------------------------------------
class TfrMain : public TForm
{
__published:
    TStringGrid *sg;
    TButton *btAdd;
    TButton *btDelete;
    TButton *btSave;
    TButton *btLoad;
    TOpenDialog *op;
    TSaveDialog *sv;
    TButton *btFind;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall btAddClick(TObject *Sender);
    void __fastcall btDeleteClick(TObject *Sender);
    void __fastcall btLoadClick(TObject *Sender);
    void __fastcall btSaveClick(TObject *Sender);
    void __fastcall btFindClick(TObject *Sender);
private:
public:
    __fastcall TfrMain(TComponent* Owner);
    void ShowSoldiers ();
};
//---------------------------------------------------------------------------
extern PACKAGE TfrMain *frMain;
//---------------------------------------------------------------------------
struct Soldier
{
    String name, tel, address, who, waser,gas,el,telef;
 
    Soldier () {}
    Soldier (String _name, String _tel, String _address, String _who,
        String _waser,String _gas,String _el,String _telef): name(_name), tel(_tel), address(_address),
        who(_who), waser(_waser),gas(_gas),el(_el),telef(_telef) {}
    ~Soldier () {}
};
//---------------------------------------------------------------------------
class Soldiers
{
    vector <Soldier> soldiers;
 
public:
    Soldiers() {}
    ~Soldiers() {}
 
    void AddSoldier (const Soldier &s);
    bool DeleteSoldier (int index);
    Soldier Get (int index);
    int Find (String name);
    int Count () const;
 
    bool SaveToFile (String filename);
    bool LoadFromFile (String filename);
};
#endif
Вложения
Тип файла: rar курсач.rar (7.4 Кб, 5 просмотров)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
25.10.2013, 17:08
Ответы с готовыми решениями:

Поиск в Stringgrid и вывод строк в новый Stringgrid
Привет. Наверное этот вопрос задавался уже много раз, но я не могу никак понять: 1. У меня есть Stringgrid в нем содержатся записи: фио,...

Вывод в StringGrid из Word, а из StringGrid в круговую диаграмму
Изначально необходимо с первой формы из нескольких компонентов(эдиты, комбобоксы и дататайм) собрать данные и вывести в строку вордовского...

Поменять вывод массива в stringgrid на вывод в memo
Помогите изменить код, чтобы вывод был в memo1 вместо stringgrid1 и в memo2 вместо stringgrid2. не получается procedure...

1
Практикантроп
 Аватар для nick42
4841 / 2726 / 534
Регистрация: 23.09.2011
Сообщений: 5,798
25.10.2013, 18:29
Вроде этого: __ , но поля все должны быть заполнены
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
bool Soldiers::LoadFromFile(String name) {
    TStringList *sl = new TStringList();
    Soldier t;
 
   try {
     sl->LoadFromFile(name);
 
//     if (sl->Count % 5)
//     throw 0;
       for (int i = 0; i < sl->Count; i++)
       {
        switch(i % 8) {
         case 0:
           t.name = sl->Strings[i];
           break;
         case 1:
           t.tel = sl->Strings[i];
           break;
         case 2:
           t.address = sl->Strings[i];
           break;
         case 3:
           t.who = sl->Strings[i];
           break;
         case 4:
           t.waser = sl->Strings[i];
           break;
         case 5:
           t.gas = sl->Strings[i];
           break;
         case 6:
           t.el = sl->Strings[i];
           break;
         case 7:
           t.telef = sl->Strings[i];
           AddSoldier(t);
           t.name = "";
           t.tel = "";
           t.address = "";
           t.who = "";
           t.waser = "";
           t.gas = "";
           t.el = "";
           t.telef = "";
           break;
         }
            
         } 
        delete sl;
        return true;
        }
    catch(...) {
        delete sl;
        return false;
    }
}
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
25.10.2013, 18:29
Помогаю со студенческими работами здесь

Delphi 7 Stringgrid Нужно сделать цикл для заполнения Stringgrid данными из другого Stringgrid
Нужно чтобы из Stringgrid1 данные переносились в Stringgrid2 Но ТОЛЬКО ПО УСЛОВИЮ Таблицы Stringgrid2 На рис всё показано. За работающий...

Вывод в StringGrid
Программа забивает в матрицу значения из экселя в матринцу. На выводи значений из матрицы в стринггрид выподает ошибка: Project...

StringGrid вывод
type fzsgn=record d:Tdate; N:String; C:real; Kl:word; S:real; K:string; v:Boolean; ...

Вывод в StringGrid
Помогите, пожалуйста, понять в чем проблема. Программа записывает в текстовый файл из Edit и Combobox, а потом должна выводить данные в...

Вывод StringGrid
Код программы.Выводит в StringGrid4 название неправильное.Посмотрите изображение {2} procedure TForm1.Button4Click(Sender: TObject); ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru