![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Немогу понять с декларацией [D7, Win95/98]
Bogdan © (2005-02-21 15:29:00)Здравствуйте, такой вопрос: почему при деклароции функции IncDay
в разделе public. Выдает сообщение Unsatisfied forward or external declaration. Декларирую из справки Cntrl+F1.
Digitman (2005-02-21 15:55:00) [1]
> Bogdan (21.02.05 15:43) [3]
> А вот и код:
Богдаша, умник ты наш, когда у тебя проблемы и от тебя требуется код для анализа твоих же проблем и рекомендаций по их устранению, твоя задача - привести полныйкод, а не его шматки
Юрий Зотов (2005-02-21 15:48:00) [2]> Bogdan (21.02.05 15:43) [3]
А вот это самое слово "public" - оно вообще-то к чему относится?
И где код реализации IncDay? Вызов не нужен.
begin...end (2005-02-21 15:47:00) [3]> Bogdan (21.02.05 15:43) [3]
А зачем вы эту функцию объявляете? Пропишите в uses модуль DateUtils - и используйте её.
Amoeba (2005-02-21 15:46:00) [4]А методом какого классаявляется IncDay?
Bogdan (2005-02-21 15:43:00) [5]public
{ Public declarations }
function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
end;
...........
if RadioButton4.Checked then
begin
>Юрий Зотов © (21.02.05 15:33) [1]
> Bogdan (21.02.05 15:29)
Метод воспринят компилятором, как регулярная процедура.
Значит, что-то пропущено в коде. А в вопросе пропущен код.
А вот и код:
with Datamodule1.Query6 do
begin
close;
m1:=StrToInt(form14.Edit2.Text);
Dat1:=IncDay(DateTime,-m1);
sql.Text:='select distinct* from tab1 where data between :pd1 and pd2';
Params[0].AsDateTime:=Dat1;
Params[1].AsDateTime:=DateTime;
open;
end;
Семен Сорокин (2005-02-21 15:35:00) [6]
> Выдает сообщение Unsatisfied forward or external declaration.
Отсутствует реализация.
Юрий Зотов (2005-02-21 15:33:00) [7]> Bogdan (21.02.05 15:29)
Метод воспринят компилятором, как регулярная процедура.
Значит, что-то пропущено в коде. А в вопросе пропущен код.