Создание записи ListBox

[TaYgA]

Здрвствуйте дорогие эксперты... Скажите пожалуйсто в чём ошибка?! Требуется чтоб при нажатии на кнопу в ListBox добавлялась запись...

procedure TDiary.btAddDataClick(Sender: TObject);
var
   i: Integer;
begin
  for i:=0 to ListBox.Items.Count-1 do
    if (ListBox.Items[i]<>DateTimeToStr(Date)) then
    ListBox.Items.Add(DateTimeToStr(Date))
      else showmessage('Запись с таким именем уже существует');
end;

[baster128]

Да вроде все нормально. Попробуй наоборот листбщксовскую сторку в дэйт и сравнить. А вообще какой результат исполнения твоего кода?

[TaYgA]

После компиляции всё работает, но при нажатии на кнопку ничего не происходит... т.е. и не добавляет запись, и не выдаёт ошибку...

[Пепел Феникса]

используйте DateToStr.

[SERG1980]

во первых ваш листбокс не должен быть пустым изначально хоть одна строка должна присутствовать
во вторых у вас будет добавлятся повторная дата хоть и ваша прога скажет что такая запись есть

[TaYgA]

Cпасибо что откликнулись... В чём была ошибка я разобрался... Если кому надо вот правельный код:

procedure TDiary.btAddDataClick(Sender: TObject);
var
   i:integer;
   fl:boolean;
begin
  fl:=true;
  for i:=0 to lbRecord.Items.Count-1 do
    if DateTimeToStr(Date)<>lbRecord.Items.Text then begin
      fl:=false;
      break
    end;
  if fl then
    lbRecord.Items.Add(DateTimeToStr(Date))
      else
        ShowMessage('Такой уже есть!');
end;

lbRecord это ListBox

[TaYgA]

У меня возник ещё один вопрос по ListBox... Нужно, чтоб при нажатии на кнопку курсор опускался вниз на следущий элемент... т.е. в ListBox какой либо элемент и при нажатии на кнопку курсор должен опускаться на следущий элемент...

ListBox.ItemIndex:=+1;

Такой вариант не срабатывает...
Так же есть кнопка удалить выделенный элемент

  ListBox.DeleteSelected;

Почему то не работает... Как написать правельно?!

[Stilet]

ListBox.ItemIndex:=ListBox.ItemIndex+1;

[TaYgA]

Stilet, спасибо... Всё работает как надо с удаление проблему тоже решил....

[Grag]

Сообщение от TaYgA

У меня возник ещё один вопрос по ListBox... Нужно, чтоб при нажатии на кнопку курсор опускался вниз на следущий элемент...

Буквально на днях дорабатывал свою программу по просьбе заказчика, как раз по теме... Вот примеры моих решений...

//Это перемещение выделенной строки ЛистБокса вниз...

procedure TMainFrm.BtnMoveDNClick(Sender: TObject);
Var
  LinePos:word;

begin
  if (ListBoxGpCompSel.SelCount<>1) or
          (ListBoxGpCompSel.ItemIndex=ListBoxGpCompSel.Items.Count-1) then Exit;
  LinePos:=ListBoxGpCompSel.ItemIndex+1;
  ListBoxGpCompSel.Items.Move(ListBoxGpCompSel.ItemIndex,LinePos);
  ListBoxGpCompSel.Selected[LinePos]:=true
end;

// А это перемещение выделенной строки ЛистБокса вверх...

procedure TMainFrm.BtnMoveUPClick(Sender: TObject);
begin
  if (ListBoxGpCompSel.SelCount<>1) or (ListBoxGpCompSel.ItemIndex=0) then Exit;
  ListBoxGpCompSel.Items.Move(ListBoxGpCompSel.ItemIndex,
                                                  ListBoxGpCompSel.ItemIndex-1);
  ListBoxGpCompSel.Selected[ListBoxGpCompSel.ItemIndex]:=true
end;