Главная страница
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.065 c
1-1118068965
VadimX
2005-06-06 18:42
2005.06.29
Визуальный объект 2 в одном.


14-1117456983
Iova
2005-05-30 16:43
2005.06.29
Работа с типом TStrings


3-1116233305
Yurisimus
2005-05-16 12:48
2005.06.29
DataSource не видит pFIBQuery


4-1115289584
pavel_guzhanov
2005-05-05 14:39
2005.06.29
Как определить размер файла?


1-1118218505
Иванушка
2005-06-08 12:15
2005.06.29
Общий вопрос