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

Ошибка   Найти похожие ветки 

← →
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 вся ветка

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



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