Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
Вниз
Ошибка при выполнении процедуры Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.037 c
