[obsession]

что нужно сделать чтобы не было этой ошибки? подскажите пожалуйста)

[Raskolnikov]

Попытка обращения к несуществующему элементу объекта TStringList. Индекс должен быть больше или равен нулю и строго меньше количества строк. Покажи код, который вызывает исключение.

[Человек_Борща]

уверен у вас такой цикл точно есть:

Код:

for i:=0 to StringList.count do
begin
//something code...
end;

в общем ошибка в том что нужно отнимать 1 либо начинать с еденицы. т.е. или так:

Код:

for i:=0 to StringList.count -1 do
begin
//something code...
end;

либо так

Код:

for i:=1 to StringList.count do
begin
//something code...
end;

[UFO 007]

Доброго всем времени суток!
Пардоньте, что не начал новую тему(топик) - неча форум захламлять, когда на аналогичный предмет можно и здесь пообщаться.
Проблемстон следующий: динамически (вродь как Run-Time) создаю кнопочку:

Код:

Procedure CreateButtons2(DirName: string; Left_: integer);
begin
  Sbutton2:= TSoundButton.Create(Form1);
  with Sbutton2 do
  begin
    Caption := DirName;
    parent:=Form1;
    Height:= 25;
    Width:= 100;
    Top := 400;
    Left := Left_;
    Visible:= True;
    OnClick := Form1.SButton2Click;
  end;
end;

(декларация Sbutton2 : TSoundButton - глобальная) и при нажатии кн. "Назад" надо её ликвидировать:

Код:

procedure TForm1.ButtBackClick(Sender: TObject);
var
  i: integer;
begin
  ListBox1.Items.Add('ButtBackClick');
  For i:=0 to Form1.ControlCount-1 do
  if Form1.Controls[i].ClassType = TSoundButton then
  begin    
    ListBox1.Items.Add( SButton2.caption);
    SButton2.Free;
  end;
end;

и caption её я видел пока не добавил SButton2.Free; - вот тут-то и начались ГРАБЕЛЬКИ... Хэлп, плз, кто может...

З. Ы. А ежели кнопок будет 2 или 3 или ... их как "убивать"?

[Viajero]

По моему так правильней

Код:

for i:=0 to StringList.count -1 do
begin
//something code...
end;

а вообще то самому можно справку посмотреть, там написано что строки с нуля начинаются.
Или, в крайнем случае методом тыка, компилятор всегда правильно ответит

Сообщение от UFO 007

- вот тут-то и начались ГРАБЕЛЬКИ...

что именно пишет?

[Страдалецъ]

В принципе так-же как и находите, только мне кажется, что это вообще неправильный подход делать стопку кнопок.

Код:

For i:=0 to Form1.ControlCount-1 do
  if Form1.Controls[i].ClassType = TSoundButton then
  begin    
    ListBox1.Items.Add( SButton2.caption);
    TSoundButton(Form1.Controls[i]).Free;
  end;

[Viajero]

Ну если одна и та же кнопка то появлятся то исчезает, то я бы, использовал бы свойство visible и не мучил бы диспетчер памяти

[Страдалецъ]

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

Ну если одна и та же кнопка то появлятся то исчезает, то я бы, использовал бы свойство visible и не мучил бы диспетчер памяти

ну если автор именно так хочет, то надо поправить кое-что. Раз кнопки будут добавляться последовательно, то видимо и убивать надо с последней и по одной за каждый вызов, тогда немножко по другому:

Код:

For Form1.ControlCount-1 downto 0 do
  if Form1.Controls[i].ClassType = TSoundButton then
  begin    
    ListBox1.Items.Add( SButton2.caption);
    TSoundButton(Form1.Controls[i]).Free;
    Break;
  end;

[angvelem]

Сообщение от UFO 007

...Пардоньте, что не начал новую тему(топик)...

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