|
|||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
Работа с программойФорма может иметь вид, представленный на рис. 8.2. Кнопку «Создать» нажимаем только при первом запуске программы или, если захотим заменить прежнюю информацию на новую, в окне Memo 1 отображается путь и имя созданного файла. Заполнив оба поля информацией, нажимаем кнопку «Добавить», после чего введенная информация отображается в окне Memo 1. Для работы с уже созданным файлом нажимаем кнопку «Открыть» – в Memo 1 выводится содержимое всего файла, после чего можно добавлять новые данные в конец этого файла, не уничтожая предыдущие. При нажатии кнопки «Сортировать» в Memo 1 выводятся записи, сортированные по возрастанию рейтинга. При нажатии кнопки «Сохранить результаты» создается текстовый файл, в котором сохранится информация, выведенная в Memo 1. Этот файл можно просмотреть в любом текстовым редакторе (блокноте, Word). В текст программы включена пользовательская функция void Out (TZap, TMemo *); – для вывода в Memo 1 одной записи. Для создания результирующего текстового файла используется функция, SaveToFile (FileNameRez); позволяющая записать все содержимое Memo 1 в файл с указанным именем.
Рис. 8.2
Текст программы может иметь следующий вид: ... #include <stdio.h> #include <io.h> ... //--------------------------------------------------------------------------- struct TZap{ char FIO[30]; double s_b; } Zap;
int size = sizeof(TZap); FILE *Fz; AnsiString File_Zap; void Out(TZap, TMemo*); //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Edit1->Text=""; Edit2->Text=""; Memo1->Clear(); } //------------------ Создать----------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { OpenDialog1->Title="Создать новый файл"; if (OpenDialog1->Execute()){ File_Zap = OpenDialog1->FileName; if ((Fz=fopen(File_Zap.c_str(),"wb"))==NULL) { ShowMessage("Ошибка создания ФАЙЛА!"); return; } } Memo1->Lines->Add("Создали новый файл: "+AnsiString(File_Zap)); fclose(Fz); } //----------------- Добавить----------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Fz = fopen(File_Zap.c_str(),"ab"); strcpy(Zap.FIO, Edit1 -> Text.c_str()); Zap.s_b = StrToFloat(Edit2->Text); Out(Zap, Memo1); fwrite(&Zap, size, 1, Fz); Edit1->Text=""; Edit2->Text=""; fclose(Fz); } //--------------------- Сортировать -------------------------------------- void __fastcall TForm1::Button4Click(TObject *Sender) { TZap st, *mas_Z; Fz = fopen(File_Zap.c_str(),"rb"); int D_f = fileno(Fz); // Находим дескриптор файла int len = filelength(D_f); // Находим размер файла int i, j, kol; kol = len/size; //Количество записей в файле mas_Z = new TZap[kol]; // Считываем записи из файла в динамический массив for (i=0; i < kol; i++) fread((mas_Z+i), size, 1, Fz); fclose(Fz); Memo1->Lines->Add("Сортированные сведения"); for (i=0; i < kol-1; i++) for (j=i+1; j < kol; j++) if (mas_Z[i].s_b > mas_Z[j].s_b) { st = mas_Z[i]; mas_Z[i] = mas_Z[j]; mas_Z[j] = st; } for (i=0; i<kol; i++) Out(mas_Z[i], Memo1); delete []mas_Z; } //------------------- Сохранить -------------------------------------------- void __fastcall TForm1::Button5Click(TObject *Sender) { SaveDialog1->Title="Сохранить файл результатов"; if (SaveDialog1->Execute()) { AnsiString FileNameRez = SaveDialog1->FileName; Memo1->Lines->SaveToFile(FileNameRez); } } //-------------------- Открыть ---------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { OpenDialog1->Title="Открыть файл"; if (OpenDialog1->Execute()) { File_Zap = OpenDialog1->FileName; if ((Fz=fopen(File_Zap.c_str(),"rb"))==NULL) { ShowMessage("Ошибка открытия ФАЙЛА!"); return; } } Memo1->Lines->Add("--------- Все сведения ---------"); while(1){ if(!fread(&Zap,size,1,Fz)) break; Out(Zap, Memo1); } fclose(Fz); } //----------------- Очистка Memo ------------------------------------------- void __fastcall TForm1::Button6Click(TObject *Sender) { Memo1->Clear(); } //----------------- Функция вывода одной записи ----------------------- void Out(TZap z, TMemo *Memo1) { Memo1->Lines->Add(AnsiString(z.FIO)+ " "+FloatToStrF(z.s_b, ffFixed,6,3)); }
Поиск по сайту: |
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.006 сек.) |