| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

И ещё одна ощибка... [D6, WinXP]

Федюлин Григорий ©   (2005-01-06 13:28:00) 

Вылазеет ошибка: Is not integer value! Что такое е могу понять. Нет я конечно понимаю, что типа значение нецелочисленного типа, но где я эту ошибку допустил?... Может вы поможете:


Var
i, a: integer;
...
Begin
If MainForm.GetSettingString('Config','Main','CDRWCOPY') = 'TRUE' Then
Begin
a:=CabCopyForm.Memo.Lines.Count;
For i:=1 To a do
CDBurner1.AddFolder(CabCopyForm.RealListBox.Items.Strings[StrToInt(CabCopyForm.Memo.Lines.Strings[i])]);
If CabCopyForm.OtherText.Text <> '' Then
CDBurner1.AddFolder(CabCopyForm.OtherText.Text);
End;
CDBurner1 - компонент для записи на CDRW данных. В нём багов нет. Его функция AddFolder принимает значения типа String.

---

Zeqfreed   (2005-01-06 19:35:00) [1]

хе, чето я запутался и заработался )
чето ответил, только не понятно кому )

---

Zeqfreed   (2005-01-06 19:34:00) [2]

Александр Иванов ©   (06.01.05 13:36) [2]

a:=CabCopyForm.Memo.Lines.Count;
For i:=1 To a do
...CabCopyForm.Memo.Lines.Strings[i]

a := CabCopyForm.Memo.Lines.Count - 1;
For i := 0To a do
...CabCopyForm.Memo.Lines.Strings[i]

Может быть так?

---

Alex*   (2005-01-06 17:58:00) [3]

> А в какой строке?
>
> For i:=1 To a do
> ...CabCopyForm.Memo.Lines.Strings[i]


Она самая. Проверяй до подстановки в процедуру как
> TUser ©
советовал

---

Александр Иванов   (2005-01-06 13:36:00) [4]

А в какой строке?

Хотя уже одна ошибка есть, права другая:

a:=CabCopyForm.Memo.Lines.Count;
For i:=1 To a do
...CabCopyForm.Memo.Lines.Strings[i]

---

TUser   (2005-01-06 13:35:00) [5]

Очевидно CabCopyForm.Memo.Lines.Strings[i] - это не целочисленное значение. Функцию StrToInt надо защищать try'ем.

---

Наверх