И ещё одна ощибка...

← →
Федюлин Григорий © (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 ©
советовал

Александр Иванов © (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]

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

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

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