Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.29;
Скачать: CL | DM;

Вниз

В чем ошибка?   Найти похожие ветки 

 
Koala ©   (2005-06-09 12:42) [0]

Делаю UDFку, вот код:

procedure ReturnDate(var bool : Integer; DateEnt, DateEnd: TDateTime) :String;
far cdecl export;
 function dataString(dat : TDateTime) : string;
 var Year, Month, Day: Word;
 begin
   DecodeDate(dat, Year, Month, Day);
   case Day of
     0..9 : Result := Char(34) + "0" +IntToStr(Day) + Char(34) + " " +
                      MoonName(Month) + " " + IntToStr(Year) + "г.";
   else     Result := Char(34) + IntToStr(Day) + Char(34) + " " +
                      MoonName(Month) + " " + IntToStr(Year) + "г.";
   end;
 end;
begin
 case bool of
   0 : Result := dataString(DateEnt);
   1 : Result := "c: " + dataString(DateEnt) + " по: " + dataString(DateEnd);
 end;
end;


Выдает ошибку: [Error] utils.dpr(110): Procedure cannot have a result type


 
Ega23 ©   (2005-06-09 12:44) [1]

Не procedure а function

А вообще - в Орешник!!!!



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

Текущий архив: 2005.06.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.055 c
1-1118234991
Just3r~
2005-06-08 16:49
2005.06.29
Переход на новую версию


1-1117793065
Andrey Kononov
2005-06-03 14:04
2005.06.29
Передача параметров в форму


14-1117448902
Сатир
2005-05-30 14:28
2005.06.29
Сабж


3-1116003967
seregka
2005-05-13 21:06
2005.06.29
Непонятная ошибка


14-1117530340
passlight
2005-05-31 13:05
2005.06.29
Новая Хронология : ваши мнения ?