Здраствуйте,
есть процедура с добавлением элементов в последний раздел(как в очереди),нужно переделать немного код так что бы можно было добавлять в любой раздел(как в списке),заранее спасибо:
Код:
procedure TForm1.btnAddNewsClick(Sender: TObject);
var
_News: TNews;
pos:integer;
dt: TDateTime;
begin
try
dt:=StrToDate(edtAddDateNumber.Text);
except
ShowMessage('-------------------- ');
exit;
end;
if (edtAddTitleName.Text='') or (edtAddDateNumber.Text='') then ShowMessage('Iaiaoiaeii caiieieou ana iiey')
else if ObjNewsAgency.GetCount = 0 Then ShowMessage('-------------')
else
begin
_News := TNews.Create(edtAddTitleName.Text, StrToDate(edtAddDateNumber.Text));
//тут
if objNewsAgency.GetLast.AddNews(_News) then
begin
pos:=lstSection.ItemIndex;
ShowStructure;
lstSection.ItemIndex:=pos;
lstSection.OnClick(self)
edtAddTitleName.Text:='';
edtAddDateNumber.Text:='';
end
else ShowMessage('-----------');
end;
end;