Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Вниз

Ошибка: Acsess violation adress ... ? Как это понять? 


dimonf   (2002-02-01 13:19) [0]

Народ плиз!!!
Что за дурацкая ошибка, не могу понять?
Вот что делаю:

DecimalSeparator := ".";
ADate:=MyStrToDate(ConvData(MyData[961],1));
For Count:=1 to MyData.Count-3 do
begin
IF ADate=MyStrToDate(ConvData(MyData[962-Count],1)) then
begin
ATimes:=ATimes+1;
end
else ATimes:=0;
ADate:=MyStrToDate(ConvData(MyData[962-Count],1));
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add("Insert Into ""+GetCurrentDir+"\Base\"+NTeplo+"c.db" Values (""+DateToStr(ADate)+"",""+IntToStr(ATimes)+":00",""+FloatTostr(StrToFloat(ConvData(MyData[962-Count],2))*0.01)+"",""+FloatToStr(StrToFloat(ConvData(MyData[962-Count],9))*0.01)+"",""+FloatToStr(StrToFloat(ConvData(MyData[962-Count],11))*0.01)+"",""+FloatToStr(StrToFloat(ConvData(MyData[962-Count],9))*0.01-StrToFloat(ConvData(MyData[962-Count],11))*0.01)+"",""+FloatToStr(StrToFloat(ConvData(MainForm.MyData[962-Count],3))*0.01)+"",""+FloatToStr(StrToFloat(ConvData(MainForm.MyData[962-Count],4))*0.01)+"",""+FloatToStr(StrToFloat(ConvData(MainForm.MyData[962-Count],3))*0.01-StrToFloat(ConvData(MainForm.MyData[962-Count],4))*0.01)+"")");
Query1.ExecSQL;
Inc(ProgressCount);
Form4.Gauge1.Progress:=ProgressCount;
end;

В чем проблема?



Digitman   (2002-02-01 16:26) [1]

и на какой строчке ты AV получаешь ?



dimonf   (2002-02-01 18:44) [2]

Все делаеться нориально. Но когда заканчиваеться процедура end; после этого и выходит ошибка.



Polevi   (2002-02-01 19:58) [3]

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



Desdechado   (2002-02-01 20:38) [4]

по-моему, ты выскакиваешь за границу массива MyData
и немудрено с таким-то кодом :))



Anatoly Podgoretsky   (2002-02-02 17:02) [5]

Неизвестные штукенции

MyStrToDate
ConvData
MyData
ADate
ATimes
Count
ProgressCount

И ты хочешь помощи




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
1-90562           SkyR                  2002-02-08 01:50  2002.02.28  
TQuickReport


1-90618           ProgrammerDelphi      2002-02-12 10:17  2002.02.28  
RichEdit


3-90463           Марина                2002-02-01 15:00  2002.02.28  
Потеря записей в БД при некорректном завершении работы системы


3-90450           навичек               2002-02-01 02:50  2002.02.28  
Упаковка mdb шной базы с отношениями


7-90684           Dmitry V. Averuanov   2001-11-26 14:14  2002.02.28  
Не могу отловить завершение работы моей программы вместе с Win.