Курсовая работа: Об’єктно-орієнтована програма обліку продуктового магазину
}
else List->ItemIndex = -1;
}
//------------------------------------------------------------------------
void __fastcall TMainForm::Sort(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::Save(TObject *Sender)
{
FILE *f;
if(SaveDialog->Execute())
{
f = fopen(SaveDialog->FileName.c_str(),"w");
if(f!=NULL)
{
list.save(f);
fclose(f);
}
}
}