Исключительная ситуация

← →
Артём (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

но самая распространённая..

> [11] Артём (07.02.11 23:56)
> > Windows вообще плохая OC
>
> но самая распространённая..

Вот крутые перцы вынуждены под ней писать и мучаться от её глюков. Билл Гейтс виноват - ясен пень.

пусть крутые перцы пишут на кроссплатформенных языках ;)

> пусть крутые перцы пишут на кроссплатформенных языках ;)

Так там виндосовские виртуальные машины будут глючить :)

Исключительная ситуация Найти похожие ветки