47808 (608380), страница 4

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

Текст из файла (страница 4)

{

f= fopen(SaveDialog->FileName.c_str(),"w");

if(f!=NULL)

{

list.zvit(f);

fclose(f);

}

}

}

void __fastcall TMainForm::Open(TObject *Sender)

{

FILE *f;

if(OpenDialog->Execute())

{

f = fopen(OpenDialog->FileName.c_str(),"r");

if(f!=NULL)

{

list.clear();

String->Text="";

NewInt->Text="";

list.load(f);

redraw();

fclose(f);

}

}

}

//------------------------------------------------------------------------void __fastcall TMainForm::Clear(TObject *Sender)

{

list.clear();

redraw();

}

//------------------------------------------------------------------------

void __fastcall TMainForm::Select(TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y)

{

TPoint point;

point.x = X;

point.y = Y;

int sel = List->ItemAtPos(point,true);

int i;

Ptr t;

if(sel>=0)

{

List->ItemIndex = sel;

StrList->ItemIndex = sel;

for(t=list.first(),i=0;t.valid()&&(i

if(t.valid())

{

NewInt->Text = IntToStr(t->d);

Day->Text = IntToStr(t->day);

Year->Text = IntToStr(t->year);

Month->Text = IntToStr(t->month);

//NewDouble->Text = FloatToStr(t->x);

String->Text = t->str;

FirmaString->Text = t->str1;

WidString->Text = t->str2;

}

}

}

//------------------------------------------------------------------------

void __fastcall TMainForm::Update(TObject *Sender)

{

Ptr t;

int i;

int sel;

sel = List->ItemIndex;

if(sel>=0)

{ for(t=list.first(),i=0;t.valid()&&(i

if(t.valid())

{

t->d = StrToInt(NewInt->Text);

t->day = StrToInt(Day->Text);

t->year = StrToInt(Year->Text);

t->month = StrToInt(Month->Text);

t->str = String->Text;

t->str1 = FirmaString->Text;

t->str2 = WidString->Text;

//t->x = StrToFloat(NewDouble->Text);

redraw();

}

}

}

//------------------------------------------------------------------------

void __fastcall TMainForm::SelectStr(TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y)

{

TPoint point;

point.x = X;

point.y = Y;

int sel = StrList->ItemAtPos(point,true);

int i;

Ptr t;

if(sel>=0)

{

List->ItemIndex = sel;

StrList->ItemIndex = sel;

or(t=list.first(),i=0;t.valid()&&(i

if(t.valid())

{

NewInt->Text = IntToStr(t->d);

Day->Text = IntToStr(t->day);

Year->Text = IntToStr(t->year);

Month->Text = IntToStr(t->month);

String->Text = t->str;

FirmaString->Text = t->str1;

WidString->Text = t->str2;

}

}

}

//------------------------------------------------------------------------

void __fastcall TMainForm::SortNum(TObject *Sender)

{

Ptr t,p,q;

for(t=list.first().next();t.valid();t=q)

{

q = t.next();

for(p=t.prev();p.valid()&&(p->d>t->d);--p);

p>>t;

}

redraw();

}

//------------------------------------------------------------------------

void __fastcall TMainForm::SortStr(TObject *Sender)

{

Ptr t,p,q;

for(t=list.first().next();t.valid();t=q)

{

q = t.next();

for(p=t.prev();p.valid()&&(p->str>t->str);--p);

p>>t;

}

redraw();

}

//------------------------------------------------------------------------

void __fastcall TMainForm::Button1Click(TObject *Sender)

{

Close();

}

2. Main.h

#ifndef MainH

#define MainH

#include

#include

#include

#include

#include "Number.h"

#include

#include

#include

#include

#include "Date.h"

#include "My_date.h"

//------------------------------------------------------------------------

typedef MyTable Data;

typedef MyTable::Iterator Ptr;

class TMainForm : public TForm

{

__published:// IDE-managed Components

TEdit *NewInt;

TLabel *NewIntLabel;

TButton *AddButton;

TListBox *List;

TButton *DelButton;

TButton *FindButton;

TButton *SortButton;

TButton *SaveButton;

TButton *OpenButton;

TButton *Button3;

TButton *Zvit;

TSaveDialog *SaveDialog;

TOpenDialog *OpenDialog;

TEdit *String;

TLabel *Label1;

TButton *ChangeButton;

TListBox *StrList;

TLabel *NumLabel;

TLabel *StrLabel;

TEdit *FirmaString;

TEdit *WidString;

TLabel *Label3;

TLabel *Label4;

TLabel *Label5;

TLabel *Label6;

TLabel *Label7;

TLabel *Label8;

TEdit *Day;

TEdit *Month;

TEdit *Year;

TButton *Button1;

TImage *Image1;

void __fastcall Add(TObject *Sender);

void __fastcall Del(TObject *Sender);

void __fastcall Find(TObject *Sender);

void __fastcall Sort(TObject *Sender);

void __fastcall Save(TObject *Sender);

oid __fastcall Open(TObject *Sender);

void __fastcall Clear(TObject *Sender);

void __fastcall Select(TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y);

void __fastcall Update(TObject *Sender);

void __fastcall SelectStr(TObject *Sender, TMouseButton Button,

TShiftState Shift, int X, int Y);

void __fastcall SortNum(TObject *Sender);

void __fastcall SortStr(TObject *Sender);

void __fastcall Button1Click(TObject *Sender);

private:// User declarations

Data list;

void redraw();

public:// User declarations

__fastcall TMainForm(TComponent* Owner);

};

9. Magazin.cpp

#include

#include "Date.h"

#pragma hdrstop

USERES("Magazin.res");

USEFORM("Main.cpp", MainForm);

USEUNIT("Table.cpp");

USEUNIT("Number.cpp");

USEUNIT("Date.cpp");

USEFILE("Date.h");

USEUNIT("My_date.cpp");

USEUNIT("data.cpp");

//------------------------------------------------------------------------WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(__classid(TMainForm), &MainForm);

&ProgramForm);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

return 0;

}

Характеристики

Список файлов курсовой работы