Несрабатывание

[LeoN]

Написал цикл:

 If Albs.IndexOf(Tek)<>-1 then
  Begin
  Grid.RowCount:=Grid.RowCount+1;
  Grid.Cells[0,Grid.RowCount]:=Tab;
  Grid.Cells[1,Grid.RowCount]:=TabPath;
  Grid.Cells[2,Grid.RowCount]:=TabType;
  Albs.Delete(Albs.IndexOf(Tek));
  End;

Это при нажатии кнопки.
Запускаем тыкаем кнопку
1раз:ни какой реакции
2раз:увеличивается RowCount
3раз:увеличивается и добавляется текст
Вопрос: почему?

[BOBAH13]

А где здесь цикл ?

увеличивается наверное потому что Вы делаете вот это:
Grid.RowCount:=Grid.RowCount+1;

[LeoN]

Кто не знает if then else тоже считается циклом.
Проблема не в добавление, а том что это происходит только при 3-ем нажатии, а не при 1-ом.

[Mitron]

попробуй реализовать метод Хаффмана.
Довольно не плохо сжимает ))

[Jeni]

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

Кто не знает if then else тоже считается циклом.

Это условие, циклом это никогда не считалось (где здесь повторяемость?).

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

Проблема не в добавление, а том что это происходит только при 3-ем нажатии, а не при 1-ом.

Возможно проблема в том, что используются неверные номера строк. Вместо Grid.Cells[0,Grid.RowCount] нужно писать Grid.Cells[0,Grid.RowCount-1], ведь нумерация строк начинается с нуля.

[BOBAH13]

Мда уж... оскорбить может любой, а вот подумать перед тем как написать не каждый в силах! Да LeoN? Если бы Вы вдумались в смысл и значение слова Цикл то поняли бы что условие тут вовсе не причем

[LeoN]

Извините запамятствовал.бывает
Поставил -1, но срабатывает почему то со 2-го раза. Это может быть из за глючности скина?

[Jeni]

Скин тут может и ни причем. Стоит посмотреть, какое начальное значение у RowCount? А ещё вставить в условие после begin код вроде этого: Application.MessageBox(PAnsiChar(In tToStr(RowCount)), '');
Тогда станет точно понятно, что в какую строку пишется. Возможно RowCount меняется где-то еще.