Ошибки в процедуре

[nightly]

ADOTableNumDeposit.Active :=true;
n:=0;
ADOQTime.First;
while not ADOQTime.Eof do
begin

Val := ' РУб.';

if ADOQTime.FieldByName('CurrencyID'). AsString = '2'
then Val := ' $';

if ADOQTime.FieldByName('CurrencyID'). AsString = '3'
then Val := ' ЕВРО';



вот таккая ошибка [Error] Unit1.pas(249): '(' expected but ':=' found

[whatever]

Ну и ищи ошибку в 249 строке. Или хоть тут покажи, где она. А вообще, где-то ты забыл указать какие-то параметры.

[nightly]

Val := ' РУб.'; ругаеться вот здесь и на остальные где про деньги идет

[Stilet]

Не удивительно - Val это системная процедура, и давать имя переменной такое не рекомендуется никогда.
Обзови переменку по другому.

[whatever]

Почитай вот это.
Если честно, то не понимаю, чего ты добиться то хотел? Если использовать "val" как переменную, то забыл ее переобозначить (чего делать не рекомендую).

Сообщение от Stilet

...Обзови переменку по другому.

Да он ее вообще не объявлял, только что попробовал, если в var прописать как string, то ругаться не будет. Опять же, делать это не нужно. Лучше воспользоваться советом от Stilet и объявить, например _Val

[nightly]

Спасибо помогло) но вот еще косяк

begin
        time1:=ADOQTime.FieldByName('DataBegin').AsDateTime;
        time2:=DateTimePickerEnd.Date;
        countM:=MonthsBetween(time1,time2);

         //countD:=daysBetween(time1,time2);
        // edit1.Text :=IntToStr (countD);
        //edit1.Text :=IntToStr (countM)
      end ;

ошибка

[Error] Unit1.pas(289): Undeclared identifier: 'MonthsBetween'

извиняюсь за примитивные ошибки просто в делфи я 0 а мне на нем диплом писать благо нашел чужие исходники по ним вот что то пытаюсь сделать

да да, после переименования переменой, начало ругаться что неизвестный тип. Там я сам допер что надо ее задать)

[Stilet]

[Error] Unit1.pas(289): Undeclared identifier: 'MonthsBetween'

Это функа из модуля DateUtils. Подключи его в разделе Uses.