Скачать: CL | DM;

Ошибка при выполнении процедуры   Найти похожие ветки 

← →
Koala ©   (2004-09-07 15:05) [0]

Есть процедура:

procedure InfoNum;
const info = "путевые оисты с: %s по: %s";
var   bm : TBookmark;
     n,k: string;
begin
with dm.tbl_Temp do
  begin
    bm := GetBookmark;
    DisableControls;
    first;
    n := IntToStr(FieldByName("NUM_PL").AsInteger);
    last;
    k := IntToStr(FieldByName("NUM_PL").AsInteger);
    fm_PrintTravel.lb_Info.Caption := Format(info,[n,k]); - сдесь вылетает ошибка
    GotoBookmark(bm);
    EnableControls;
  end;
end;

выдает следующую ошибку:
Project Supervisor.exe raised exception class EAccessViolation with message "Access violation at address 00632158 in module "Supervisor.exe". Read of address 00000340". Process stopped. Use Step or Run to continue.

---

← →
Семен Сорокин ©   (2004-09-07 15:07) [1]

наверное fm_PrintTravel не существует

---

← →
Koala ©   (2004-09-07 15:09) [2]

Эта поцедура вызывается на Tfm_PrintTravel.FormActivate(Sender: TObject);

---

← →
Семен Сорокин ©   (2004-09-07 15:11) [3]

а методом формы ее слабо сделать?

---

← →
Плохиш ©   (2004-09-07 15:11) [4]

> Koala ©   (07.09.04 15:09) [2]

Сделай её методом класса Tfm_PrintTravel и убери fm_PrintTravel. из текста.

---

← →
Семен Сорокин ©   (2004-09-07 15:12) [5]

const info = "путевые оисты с: %d по: %d";

---

← →
Koala ©   (2004-09-07 15:13) [6]

> [3] Семен Сорокин ©   (07.09.04 15:11)
а методом формы ее слабо сделать?


> [4] Плохиш ©   (07.09.04 15:11)
Сделай её методом класса Tfm_PrintTravel


а как??? подскажите.... плз...

---

← →
Defunct ©   (2004-09-07 15:14) [7]

Вот и передавайте в нее указатель на форму, вместо использования глобальной переменной.

Procedure InfoNum(AForm: TForm);
...
 AForm.lb_Info.Caption := Format(info,[n,k]);
...
End;

В FormActivate вызывайте:
InfoNum( Sedner as TForm ) или InfoNum( Self )

---

← →
Семен Сорокин ©   (2004-09-07 15:17) [8]

> а как??? подскажите.... плз...

Tfm_PrintTravel = class(TForm)
...
private
  procedure InfoNum;
end;

procedure Tfm_PrintTravel.InfoNum;
begin
 // здесь можешь не писать fm_PrintTravel
end;
насчет [5] - поспешил - там все-равно вариантный массив

---

← →
Koala ©   (2004-09-07 15:23) [9]

>  [8] Семен Сорокин ©   (07.09.04 15:17)


спасибо получилось...

---

← →
Семен Сорокин ©   (2004-09-07 15:28) [10]

>путевые оисты
что за звери? :))

---

← →
Koala ©   (2004-09-07 15:50) [11]

>
>  [10] Семен Сорокин ©   (07.09.04 15:28)
> >путевые оисты
> что за звери? :))

очепятка на форуме (путевые листы)
в программе все правильно
:о))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c