Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.043 c