Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
//---------------------------------------------------------------------------
#include <vcl.h>
#include <stdio.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
const mlen = 255;
void rFF(char* fN)
{
FILE* f = fopen(fN,"rb");
if (f == NULL)
{
ShowMessage("Файл не найден!");
return;
}
char fio[mlen] = {0};
int kg;
int kv;
int rs;
int i = 1;
while(1)
{
fread(fio, mlen, sizeof(fio[0]),f);
fread(&kg, 1, sizeof(kg),f);
fread(&kv, 2, sizeof(kv),f);
fread(&rs, 3, sizeof(rs),f);
if (feof(f))
break;
Form1->StringGrid1->RowCount = i+1;
Form1->StringGrid1->Cells[0][i] = i;
Form1->StringGrid1->Cells[1][i] = fio;
Form1->StringGrid1->Cells[2][i] = kg;
Form1->StringGrid1->Cells[3][i] = kv;
Form1->StringGrid1->Cells[4][i] = rs;
i++;
}
fclose(f);
}
void sTF(char* fN)
{
FILE* f = fopen(fN,"w+b");
char fio[mlen];
int kg, kv,rs;
for (int i = 1; i<Form1->StringGrid1->RowCount; i++)
{
strcpy(fio,Form1->StringGrid1->Cells[1][i].c_str());
kg = StrToInt(Form1->StringGrid1->Cells[2][i]);
kv = StrToInt(Form1->StringGrid1->Cells[3][i]);
rs = StrToInt(Form1->StringGrid1->Cells[4][i]);
fwrite(fio, sizeof(fio[0]),mlen,f);
fwrite(&kg, sizeof(kg),1,f);
fwrite(&kv, sizeof(kv),2,f);
fwrite(&rs, sizeof(rs),3,f);
}
fclose(f);
}
void wresult(char* fn)
{
FILE* f = fopen(fn,"a");
fputs (" Считали",f);
}
void wresult2(char* fn)
{
FILE* f = fopen(fn,"a");
fputs (" Записали",f);
}
void wresult3(char* fn)
{
FILE* f = fopen(fn,"a");
fputs (" Удалили строку",f);
}
void wresult4(char* fn)
{
FILE* f = fopen(fn,"a");
fputs (" Добавить строку",f);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
sTF("1.dat");
Memo1->Lines->Add("В файл 1.dat занесена информация");
wresult("инфо.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
rFF("1.dat");
Memo1->Lines->Add("Из файла 1.dat взята информация");
wresult2("инфо.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form1->StringGrid1->RowCount++;
Memo1->Lines->Add("Добавил");
wresult4("инфо.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int p = StringGrid1->Row;
for (int i=p; i<StringGrid1->RowCount - 1; i++)
StringGrid1->Rows[i] = StringGrid1->Rows[i+1];
StringGrid1->RowCount--;
Memo1->Lines->Add("Удалил");
wresult3("инфо.txt");
}
//---------------------------------------------------------------------------
Соседние файлы в папке 13