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

[TaYgA]

Grag, спасибо... Теперь передо мною стоит другая задача... При смене курсора в ListBox прога должна сохранять содержимое RichEdit с именем предыдущего выбраного элемента ListBox

procedure TDiary.lbRecordClick(Sender: TObject);
begin
  for i:=0 to lbRecord.Items.Count-1 do
    if lbRecord.Selected[i]=False then begin
      if DirectoryExists('SaveFile') then
        RichEdit.Lines.SaveToFile(extractfilepath(paramstr(0))+'SaveFile/'+lbRecord.Items[i])
          else begin
            CreateDir('SaveFile');
            RichEdit.Lines.SaveToFile(extractfilepath(paramstr(0))+'SaveFile/'+lbRecord.Items[i]);
          end;
      break;
    end;
end;

В этом случаи происходит сохранения выбранного элемента, а не который был выбран до этого... Как исправить код?!

lbRecord это ListBox

[Stilet]

Запоминай выделенный элемент в некую переменку, а по следующему клику у тебя будет и выделенный и предидущий

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 caption:='Предидущий '+IntToStr(ListBox1.Tag);
 ListBox1.Tag:=ListBox1.ItemIndex;
end;

[TaYgA]

Stilet, спасибо

[TaYgA]

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

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

Оказалось мой вариант работает неверно... Неужели не возможно сделать так чтоб не добавлялась повторная дата?!!?

[TaYgA]

Немогу никак правельно организовать программу

for i:=0 to lbRecord.Items.Count-1 do
    if lbRecord.Items.IndexOf(DateToStr(Date))<0 then begin
      lbRecord.Items.Add(DateToStr(Date));
      break;
    end
      else 
        ShowMessage('Запись с таким именем уже существет!!!');

В таком случаи программа работает, но сообщение об ошибки вылетает столько раз, сколько уменя итомов в ListBox т.е не выходит из цикла... С помощью флага, как я пытался сделать изначально (код в начале темы) прога вообще не риагирует на условие...

[vovk]

Ну а какже ещё, срабатывает при каждом прохождением цикла когда условие lbRecord.Items.IndexOf(DateToStr(Da te))<0 Ложь

 ShowMessage('Запись с таким именем уже существет!!!');

надо разместить уже после проверки всех записей

[TaYgA]

vovk, это дело не меняет... Вот код, как вы и предлагали, после цикла:

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

Он не работает....

[vovk]

посмотрел внимательно код.. в общем вот

бррр стоп сек сейчас исправлю верну

зря паниковал всё правильно

    if lbRecord.Items.IndexOf(DateTimeToStr(Date))<0 then 
        lbRecord.Items.Add(DateTimeToStr(Date))
      else
        ShowMessage('Такой уже есть!');

[TaYgA]

vovk, спасибо!!!!
У меня созрело ещё вопросик:
Обычно при добавлении нового итема, он появляется в конце списка, возможно ли сделать, чтоб он появлялся в начале?!

[vovk]

Вообщето это все методы в справке есть

 lbRecord.Items.Insert(0,DateTimeToStr(Date))

Только не применяйте к сортированым спискам.