Отправлено ++ 03 июля 2006 г. 18:55

В дельфи я лопух, но надо пороравить 1 прогу... Поможите пож...

function TCalendar.IsLeapYear(AYear: Integer): Boolean;
begin
  Result := (AYear mod 4 = 0) and ((AYear mod 100 <> 0) or (AYear mod 400 = 0));
end;

файл src от дельфи
да и все файлы функций в примерах Result как возвращаемое значение фкнкции нигде не опрределяется. как победить?

Спасибо.

• ПРОДЖЕКТ -> ОПТИОНС -> КОМПИЛЕР . Включите Екстендед синтакс — AndryG   (03.07.2006 19:14 212.35.161.27, 111 байт)
  • Opa. Tochno. Vot mlin i ne znal chto delphi tak umeyut :) Stranno, chto u menya ono poumolchaniyu on... Spasibo (-) — Grizli   (03.07.2006 19:16 212.184.95.238, пустое)
• Нужно писать if "условие" then result:=true else result:=false; — misyachniy   (03.07.2006 19:09 83.218.237.86, пустое)
  • A eto dlya kogo (kakoy kompiler)? 7 delphi havaet eto na ura... (-) — Grizli   (03.07.2006 19:11 212.184.95.238, пустое)
• Da vse pravil'no vrode. Ya daje ne polenilsya kompil'nul :) PS. Dohtur, Pascal ne C i ne Java (-) — Grizli   (03.07.2006 19:09 212.184.95.238, пустое)
  • Дык я и работал на Паскале. А чё ты так упёрся в этот "результ"? Почему не хочешь возвращать результат просто через имя функции? — Доктор ТуамОсес ++   (03.07.2006 19:23 62.118.146.109, пустое)
    • Nu v pascale vse chtoto ya videl v poslednie paru let - eto Result. Posle yavi mne eto bilo diko, a pro to, chto mojno otklyuchit' extended sintaksis ya ne znal. S drugoy storoni a nah ego otklyuchat'. :) (-) — Grizli   (03.07.2006 19:33 212.184.95.238, пустое)
      • Блин, ещё раз повторю вопрос, так как ты на него не ответил: почему вместо Result не хочешь просто написать имя функции???? — Доктор ТуамОсес ++   (03.07.2006 19:37 62.118.143.105, пустое)
        • Razjevivayu... Za dva goda ya ne videl chtob kto-to ne usal Result. Nu a lichno ya pochemu Result usayu - potomu chto u nas v kantore takie soglasheniya na sintaksis. — Grizli   (03.07.2006 20:17 212.184.95.238, пустое)
          • "У на в конторе такие соглашения"..."Все так пишут"..... На вот почитай — Доктор ТуамОсес ++   (03.07.2006 20:41 62.118.142.115, 802 байт)
            • Ah molodec kakoy! Skol'ko ya esche chego ne znayu! (-) — Grizli   (04.07.2006 12:47 212.184.95.238, пустое)
      • Если отключить расширенный синтаксис, то вы не сможете вызывать функции не используя при этом их значения .. и всякое такое подобное отключается. — AndryG   (03.07.2006 19:36 212.35.161.27, пустое)
• Ну ещё бы он не ругался, твы написал бред для компилятора нужно писать : "IsLeapYear :=" а не "Result := " — Доктор ТуамОсес ++   (03.07.2006 19:00 62.118.144.173, пустое)

E-mail: info@telesys.ru