Здраствуйте,
есть процедура с добавлением элементов в последний раздел(как в очереди),нужно переделать немного код так что бы можно было добавлять в любой раздел(как в списке),заранее спасибо:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | 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;
|
07.05.2013, 14:55
Добавление в массив
Линейный вид
