Курсовая работа: Об’єктно-орієнтована програма обліку продуктового магазину

}

}

}

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

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<sel);++i,++t);

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)