Скачать: CL | DM;

И ещё одна ощибка...   Найти похожие ветки 

← →
Федюлин Григорий ©   (2005-01-06 13:28) [0]

Вылазеет ошибка: 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.

---

← →
TUser ©   (2005-01-06 13:35) [1]

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

---

← →
Александр Иванов ©   (2005-01-06 13:36) [2]

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

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

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

---

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

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


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

---

← →
Zeqfreed ©   (2005-01-06 19:34) [4]

Александр Иванов ©   (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 := 0 To a do
...CabCopyForm.Memo.Lines.Strings[i]

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

---

← →
Zeqfreed ©   (2005-01-06 19:35) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.973 c