Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
ВнизОшибка Найти похожие ветки
← →
Anton (2003-01-25 15:54) [0]Что может вызвать такую ошибку Error - EConvertError : "" is not a valid integer value
← →
Palladin (2003-01-25 15:58) [1]StrToInt например
← →
Anton (2003-01-25 16:00) [2]А в этом куске есть что нибудь
AssignFile(fOF,sPath+"\OF0004_"+SEQ+".inf");
Rewrite(fOF);
for i:=0 to dsOF.RecordCount - 1 do
begin
for k:=0 to dsOF.Fields.Count - 1 do
begin
if dsOF.Fields.Fields[k].IsNull then
strField := " "
else
strField := dsOF.Fields.Fields[k].Value;
if k < dsOF.Fields.Count - 2 then
Write(fOF, strField + chr(9))
else if k = dsOF.Fields.Count - 2 then
Write(fOF, strField);
end;
WriteLn(fOF);
MarkRec("OF", dsOF.FieldByName("ID_MS").AsInteger);
dsOF.Next;
end;
CloseFile(fOF);
← →
Palladin (2003-01-25 16:06) [3]вообще это ошибка конвертирования в integer.
у тебя линии ошибки разве не окрашивается в такой красненький цвет?
в данном случае скорее в строке
MarkRec("OF", dsOF.FieldByName("ID_MS").AsInteger);
и маленькое замечание....
с Query лучьше for не использовать
используй
while not (dsOF.EOF) do
begin
.......
dsOF.Next;
end;
оно надежней будет
← →
Anton (2003-01-25 16:08) [4]У меня программа в LOG пишет, так что примерно в этом районе
← →
Юрий Зотов (2003-01-25 17:46) [5]> примерно в этом районе
А пройти отладчиком и выяснить все ТОЧНО - не судьба?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c