проблема с классами

[PapaNT]

Докатился таки до классов в FPC. Попробовал создать свой первый класс

Код: Выделить всё

  PFileList = ^TFileList;
  TFileList = Class Public
    list    : array of ListRec;
    StartDIR ,    CurrentDir : AnsiString;
    Function AllDirInList(Var Pos : LongWord) : boolean;
  end;


но ошибка компиляции меня ставит в тупик...
MY_FILE.PAS(27,21) Error: Identifier not found "Class"
MY_FILE.PAS(27,21) Error: Error in type definition
MY_FILE.PAS(27,21) Fatal: Syntax error, ";" expected but "identifier PUBLIC" found
MY_FILE.PAS(0) Fatal: Compilation aborted

[Mr.Smart]

PapaNT
Что вам сказать.... Читайте документацию по Object Pascal

[PapaNT]

пример из Objet Pascal взят здесь: http://www.interface.ru/home.asp?artId=3567

Код: Выделить всё

    type
      date = class
      private
        dd, mm, yy: integer;
      public
        procedure init (d, m, y: integer);
        function month: integer;
        function day: integer;
        function year: integer;
      end;


и этот пример соответствует и учебнику В.В. Фаронов Delphi Программирование на языке высокого уровня (ISBN 5-8046-0008-7), но не компилится
Если сможете предложить нечто иное и удобоваримое, то буду признателен!

[v-t-l]

Я бы написал еще

Код: Выделить всё

{$mode objfpc}{$H+}
uses Classes;

[Mr.Smart]

Добавьте в начале текста программы после определения program или unit следующую директиву:

Код: Выделить всё

{$mode objfpc}

или

Код: Выделить всё

{$mode delphi}

Добавлено спустя 56 секунд:
v-t-l
кстати модуль Classes необязателен

[Vadim]

PapaNT
Единственная Ваша ошибка в том, что Вы черезвычайно невнимательно читаете.
У Фаронова стоит волшебное слово type, а у Вас его нет. Все остальные ошибки точно такие же.
Боюсь помочь Вам невозможно в принципе.

[PapaNT]

прошу прощения за то, что не прокопипастил type. Подозревалось, что оно само собою разумеется.

[Дож]

Vadim
Очень интересная у вас теория, особенно при условии, что компилятор не ругался на "PFileList = ^TFileList;" и выдал "Error in type definition", а не что-то еще. Вы телепат

[Vadim]

Дож
Я человек скромный и у меня не было задачи написать книгу "Классы для чайников за 24 часа" объёмом в 1024 страницы и двумя прилагающимися DVD. Хотелось только обратить внимание человека, что читать книги нужно внимательно и тогда подавляющее большинство ошибок просто не возникнут.
Лично для меня, прочитав книгу Фаронова получить подобные ошибки - это нечто уму непостижимо. Я в своё время учился тоже на книгах Фаронова, поэтому знаю о чём говорю.

[Дож]

Vadim

Хотелось только обратить внимание человека, что читать книги нужно внимательно

А мне хотелось бы обратить внимание на то, что читать сообщения других тоже нужно внимательно и давать советы по существу.

Высказывание "Боюсь помочь Вам невозможно в принципе." слишком сильное для скромного человека, таким и обидеть можно.

Я в своё время учился тоже на книгах Фаронова, поэтому знаю о чём говорю.

Если вы не прочли того, что было написано выше, то я вкраце перескажу: проблема не в том, что человек неправильно переписал код из Фаронова, а в том, что он не знал как эту программу (написанную на дельфи) откомпилировать во free pascal'е.

[Vadim]

А мне хотелось бы обратить внимание на то, что читать сообщения других тоже нужно внимательно и давать советы по существу.

Нисколько не сомневаюсь, что Вы сообщение читали черезвычайно внимательно. Вот только не вижу Ваших советов "по существу". Интересно, почему?

[Дож]

Потому что вопрос исчерпан, если вы не заметили (см. правку выше).

[Vadim]

Дож
Видимо Вы этого не заметили тоже раз продолжаете флудить?

[Attid]

сейчас как прийдет злой дядька , как поудаляет ту всех.
для разборов полетов прошу использовать подфорум "пообшаться" или личку.