Немогу понять с декларацией

← →
Bogdan (2005-02-21 15:29) [0]

Здравствуйте, такой вопрос: почему при деклароции функции IncDay
в разделе public. Выдает сообщение Unsatisfied forward or external declaration. Декларирую из справки Cntrl+F1.

← →
Юрий Зотов © (2005-02-21 15:33) [1]

> Bogdan (21.02.05 15:29)

Метод воспринят компилятором, как регулярная процедура.
Значит, что-то пропущено в коде. А в вопросе пропущен код.

← →
Семен Сорокин © (2005-02-21 15:35) [2]

> Выдает сообщение Unsatisfied forward or external declaration.

Отсутствует реализация.

← →
Bogdan (2005-02-21 15:43) [3]

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;

← →
Amoeba © (2005-02-21 15:46) [4]

А методом какого класса является IncDay?

← →
begin...end © (2005-02-21 15:47) [5]

> Bogdan (21.02.05 15:43) [3]

А зачем вы эту функцию объявляете? Пропишите в uses модуль DateUtils - и используйте её.

> Bogdan (21.02.05 15:43) [3]

А вот это самое слово "public" - оно вообще-то к чему относится?
И где код реализации IncDay? Вызов не нужен.

> Bogdan (21.02.05 15:43) [3]

> А вот и код:

Богдаша, умник ты наш, когда у тебя проблемы и от тебя требуется код для анализа твоих же проблем и рекомендаций по их устранению, твоя задача - привести полный код, а не его шматки

Немогу понять с декларацией Найти похожие ветки