Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

dimonf © (2002-02-01 13:19:00)
Народ плиз!!!
Что за дурацкая ошибка, не могу понять?
Вот что делаю:

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;

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

Anatoly Podgoretsky (2002-02-02 17:02:00) [1]
Неизвестные штукенции

MyStrToDate
ConvData
MyData
ADate
ATimes
Count
ProgressCount

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

Desdechado (2002-02-01 20:38:00) [2]
по-моему, ты выскакиваешь за границу массива MyData
и немудрено с таким-то кодом :))

Polevi (2002-02-01 19:58:00) [3]
ужас просто
не хотел бы я оказаться на месте человека, которому нужно будет сопровождать твои программы

dimonf (2002-02-01 18:44:00) [4]
Все делаеться нориально. Но когда заканчиваеться процедура end; после этого и выходит ошибка.

Digitman (2002-02-01 16:26:00) [5]
и на какой строчке ты AV получаешь ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »