| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ошибка
Anton © (2003-01-25 15:54:00)Что может вызвать такую ошибку Error - EConvertError : "" is not a valid integer value
Юрий Зотов (2003-01-25 17:46:00) [1]> примерно в этом районе
А пройти отладчиком и выяснить все ТОЧНО - не судьба?
Anton (2003-01-25 16:08:00) [2]У меня программа в LOG пишет, так что примерно в этом районе
Palladin (2003-01-25 16:06:00) [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:00:00) [4]А в этом куске есть что нибудь
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 15:58:00) [5]StrToInt например
| |
