Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];
Вниз
И ещё одна ощибка... Найти похожие ветки
← →
Федюлин Григорий © (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 вся ветка
Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.057 c
