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

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

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

Исключительная ситуация [D7, XP]

Артём © (2011-02-07 10:40:00)
Здравствуйте мастера! Объясните пожалуйста(и подскажите как решить?) и за чего возникает исключительная ошибка, при вызове отчёта 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.

И. Павел (2011-02-08 08:18:00) [1]
> пусть крутые перцы пишут на кроссплатформенных языках ;)

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

brother (2011-02-08 07:29:00) [2]
пусть крутые перцы пишут на кроссплатформенных языках ;)

Inovet (2011-02-08 07:21:00) [3]
> [11] Артём (07.02.11 23:56)
> > Windows вообще плохая OC
>
> но самая распространённая..

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

Артём (2011-02-07 23:56:00) [4]

> Windows вообще плохая OC

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

И. Павел (2011-02-07 21:30:00) [5]

> Винда, почему-то глючит...

Windows вообще плохая OC: ядро постоянно глючит. А захочешь его подправить , записав пару-тройку байт в первые сектора, так даже не дает: Access violation и все тут...

Артём (2011-02-07 21:22:00) [6]
Спасибо! Разобрался уже сам! Винда, почему-то глючит...

Anatoly Podgoretsky (2011-02-07 12:43:00) [7]
> Артём (07.02.2011 10:49:02) [2]

И в какой строке?

KilkennyCat (2011-02-07 12:08:00) [8]

> begin
> if not dm.DataModule1.RvProject1.SelectReport('Report3',
> true) then
> exit;
> begin

Плохиш (2011-02-07 11:29:00) [9]

> Артём (07.02.11 10:49) [2]
>
> вот такая бяка!
>
> acces violation at adress 0052BFE4. Read of adress 0000009D

Попытка обратиться к несуществующему объекту или за границу массива.

Игорь Шевченко (2011-02-07 10:52:00) [10]
не прекратишь писать под разными никами - вообще не будешь писать.

Артём (2011-02-07 10:50:00) [11]

> Исключительная ситуация возникает когда исклучительные условия
> имеют место быть.

но до этого всё нормально было... код неменял и всё работало? кстати другие отчёты открываются без проблем в rvProject

Артём (2011-02-07 10:49:00) [12]
вот такая бяка!

acces violation at adress 0052BFE4. Read of adress 0000009D

И. Павел (2011-02-07 10:49:00) [13]
> [0] Артём (07.02.11 10:40)

Какой хоть тип у "исключительной ошибки" и в какой строке она возникает?

b z (2011-02-07 10:45:00) [14]
Исключительная ситуация возникает когда исклучительные условия имеют место быть.

Наверх

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