Главная страница
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.054 c
9-1111398339
reticon
2005-03-21 12:45
2005.06.29
Про DIKeyboard.SetDataFormat


9-1111518164
Bret
2005-03-22 22:02
2005.06.29
Вид от первого лица в GLscene


4-1115384854
webpauk
2005-05-06 17:07
2005.06.29
Изменение имени программы


1-1117604664
vidiv
2005-06-01 09:44
2005.06.29
русские надписи на кнопках в диалогах msgdialog.


3-1116850425
Надежда
2005-05-23 16:13
2005.06.29
Не срабатывает установка DisplayFormat полю ClientDataSet