Форум: "Начинающим";
Текущий архив: 2011.05.15;
Скачать: [xml.tar.bz2];
ВнизИсключительная ситуация Найти похожие ветки
← →
Артём (2011-02-07 10:40) [0]Здравствуйте мастера! Объясните пожалуйста(и подскажите как решить?) и за чего возникает исключительная ошибка, при вызове отчёта Rave?
вот код
procedure PechatPredmetov;
var
tmpRukov: TRaveComponent;
tmpSekretar: TRaveComponent;
tmpDateVydachi1: TRaveComponent;
tmpDateVydachi2: TRaveComponent;
tmpDateVydachi3: TRaveComponent;
begin
if not dm.DataModule1.RvProject1.SelectReport("Report3", true) then
exit;
begin
tmpRukov := dm.DataModule1.RvProject1.ProjMan.FindRaveComponent("Text1",
dm.DataModule1.RvProject1.ProjMan.ActiveReport.FirstPage);
tmpSekretar :=dm.DataModule1.RvProject1.ProjMan.FindRaveComponent("Text2",
dm.DataModule1.RvProject1.ProjMan.ActiveReport.FirstPage);
tmpDateVydachi1 :=dm.DataModule1.RvProject1.ProjMan.FindRaveComponent("Text3",
dm.DataModule1.RvProject1.ProjMan.ActiveReport.FirstPage);
tmpDateVydachi2 :=dm.DataModule1.RvProject1.ProjMan.FindRaveComponent("Text4",
dm.DataModule1.RvProject1.ProjMan.ActiveReport.FirstPage);
tmpDateVydachi3 :=dm.DataModule1.RvProject1.ProjMan.FindRaveComponent("Text5",
dm.DataModule1.RvProject1.ProjMan.ActiveReport.FirstPage);
begin
if (tmpRukov <> nil) and (tmpRukov is TRaveText) then
if (tmpSekretar <> nil) and (tmpSekretar is TRaveText) then
if (tmpDateVydachi1 <> nil) and (tmpDateVydachi1 is TRaveText) then
if (tmpDateVydachi2 <> nil) and (tmpDateVydachi2 is TRaveText) then
if (tmpDateVydachi3 <> nil) and (tmpDateVydachi3 is TRaveText) then
begin
// Замена выводимого текста
TRaveText(tmpRukov).Text := glaw.sEdit5.Text;
TRaveText(tmpSekretar).Text :=glaw.sEdit7.Text;
TRaveText(tmpDateVydachi1).Text :=glaw.sLabel13.Caption;
TRaveText(tmpDateVydachi2).Text :=glaw.sLabel14.Caption;
TRaveText(tmpDateVydachi3).Text :=glaw.sLabel15.Caption;
dm.DataModule1.RvProject1.Execute;
end;
end;
end;
end;
end.
← →
b z (2011-02-07 10:45) [1]Исключительная ситуация возникает когда исклучительные условия имеют место быть.
← →
Артём (2011-02-07 10:49) [2]вот такая бяка!
acces violation at adress 0052BFE4. Read of adress 0000009D
← →
И. Павел © (2011-02-07 10:49) [3]> [0] Артём (07.02.11 10:40)
Какой хоть тип у "исключительной ошибки" и в какой строке она возникает?
← →
Артём (2011-02-07 10:50) [4]
> Исключительная ситуация возникает когда исклучительные условия
> имеют место быть.
но до этого всё нормально было... код неменял и всё работало? кстати другие отчёты открываются без проблем в rvProject
← →
Игорь Шевченко © (2011-02-07 10:52) [5]не прекратишь писать под разными никами - вообще не будешь писать.
← →
Плохиш © (2011-02-07 11:29) [6]
> Артём (07.02.11 10:49) [2]
>
> вот такая бяка!
>
> acces violation at adress 0052BFE4. Read of adress 0000009D
Попытка обратиться к несуществующему объекту или за границу массива.
← →
KilkennyCat © (2011-02-07 12:08) [7]
> begin
> if not dm.DataModule1.RvProject1.SelectReport("Report3",
> true) then
> exit;
> begin
← →
Anatoly Podgoretsky © (2011-02-07 12:43) [8]> Артём (07.02.2011 10:49:02) [2]
И в какой строке?
← →
Артём (2011-02-07 21:22) [9]Спасибо! Разобрался уже сам! Винда, почему-то глючит...
← →
И. Павел © (2011-02-07 21:30) [10]
> Винда, почему-то глючит...
Windows вообще плохая OC: ядро постоянно глючит. А захочешь его подправить , записав пару-тройку байт в первые сектора, так даже не дает: Access violation и все тут...
← →
Артём (2011-02-07 23:56) [11]
> Windows вообще плохая OC
но самая распространённая..
← →
Inovet © (2011-02-08 07:21) [12]> [11] Артём (07.02.11 23:56)
> > Windows вообще плохая OC
>
> но самая распространённая..
Вот крутые перцы вынуждены под ней писать и мучаться от её глюков. Билл Гейтс виноват - ясен пень.
← →
brother © (2011-02-08 07:29) [13]пусть крутые перцы пишут на кроссплатформенных языках ;)
← →
И. Павел © (2011-02-08 08:18) [14]> пусть крутые перцы пишут на кроссплатформенных языках ;)
Так там виндосовские виртуальные машины будут глючить :)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.05.15;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.003 c