listview вывод определенного кол-ва строк

[maloun]

Сообщение от Решетова Алена

Да, Delphi 7

хочу переписать проект, можно оригинал задачи?
свой исходник выложу сюда...

[Решетова Алена]

Да, пожалуйста))

[Решетова Алена]

Доделала) Вот только.... После долгой работы, при закрытии проекта Делфи выскакивает такая ошибка

и при нажатии на Ок или Х, появляется снова в другом месте экрана (предыдущая закрывается), а после нажатий 6 (я не считала) появляется вторая(предыдущая не исчезла) с другим звуком и не реагирует на нажатия Ок и Х. Так и висит. Я понимаю, конечно, что сейчас сказать о возникновении этой ошибке невозможно, тем более людям, в глаза не видевшим проект, но все же... Какие-нибудь предположения есть?
Эта ошибка начала появляться... насколько я помню... при добавлении оценок в чарт из combobox1 на форме1... Я то думала почему-то, что от:

if (ComboBox1.ItemIndex = -1) then begin
   Form4.ShowModal; end

потому что сразу после этого выскочила первый раз. Но до этого я написала все оценки и их добавление и счет уже был... Вот код:

procedure TForm1.Button3Click(Sender: TObject);  // кнопка добавления песни с оценкой в чарт
var i,k,V: integer;
begin
if (ComboBox1.ItemIndex = -1) then begin
   Form4.ShowModal; end
else begin

k:=Form3.ListView2.Items.Count;
V:=-1;
for i:=0 to k-1 do begin
 with Form3.ListView2.Items[i] do begin
  if Caption <> Form2.ListBox1.Items[Form2.ListBox1.ItemIndex] then V:=-1
  else begin V:=i; break; end;
 end;
end;
if V = -1 then begin
  with Form3.ListView2.Items.Add do begin
  Caption := Form2.ListBox1.Items[Form2.ListBox1.ItemIndex];
    while SubItems.Count<3 do
    SubItems.Add('');
  SubItems[0] := Form1.ComboBox1.Items.Strings[Form1.ComboBox1.ItemIndex];
  SubItems[1] := IntToStr(1);
  SubItems[2] := Form1.ComboBox1.Items.Strings[Form1.ComboBox1.ItemIndex];
  end;
end
else
begin
  with Form3.ListView2.Items[V] do begin
  Caption := Form2.ListBox1.Items[Form2.ListBox1.ItemIndex];
    while SubItems.Count<3 do
    SubItems.Add('');
  SubItems[1] := IntToStr(StrToInt(SubItems[1]) + 1);
  SubItems[2] := IntToStr(StrToInt(SubItems[2]) + StrToInt(Form1.ComboBox1.Items.Strings[Form1.ComboBox1.ItemIndex]));
  SubItems[0] := FloatToStr(StrToInt(SubItems[2]) / StrToInt(SubItems[1]));
  end;
end;

end;
end;

Но может ошибка и не в этом месте...

[Решетова Алена]

Не может ли это быть из-за неправильной последовательности субитемов?

 SubItems[1] := IntToStr(StrToInt(SubItems[1]) + 1);
  SubItems[2] := IntToStr(StrToInt(SubItems[2]) + StrToInt(Form1.ComboBox1.Items.Strings[Form1.ComboBox1.ItemIndex]));
  SubItems[0] := FloatToStr(StrToInt(SubItems[2]) / StrToInt(SubItems[1]));

[Stilet]

Не может ли это быть из-за неправильной последовательности субитемов?

Нет. Обращения к существующим субитемам может быть в совершенно хаотическом виде.

Какие-нибудь предположения есть?

Есть. Ты пытаешься обратится к форме, которая уже освобождена.
Однозначно нужно в проекте копаться около событий закрытий форм (всех форм, а не только главной).
Возможно из-какой то из них идет в другую обращение, а эта другая уже освобождена.

[Решетова Алена]

Спасибо)) Тогда проще) Проект был сначала просто проигрывателем, без чарта. И ошибок никаких не было. А когда я начала его дописывать, прикреплять чарт, то вот тогда и вылезла ошибка. А это Форм3 и Форм4. Проверю...)

[maloun]

что-то я совсем давно не писал на d7, вот начал писать ваш проект,
не знаю сколько еще буду писать, но пока вот что уже есть

[Решетова Алена]

У Вас так профессионально получается)) Интересно, конечно) Жду завершения работы) А свой, худенький простенький, но свой) Я надеюсь сдать завтра)

П.С. всегда в этой теме. жду новых ответов.

[Stilet]

Я надеюсь сдать завтра)

Искренне желаю успехов.

[Решетова Алена]

СДАЛА!!!!)))))))) Всем Спасибо за Помощь!!!