freepascal.ru

Докатился таки до классов в 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

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

пример из 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), но не компилится
Если сможете предложить нечто иное и удобоваримое, то буду признателен!

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

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

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

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

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

{$mode objfpc}

или

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

{$mode delphi}

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

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

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

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

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

Vadim

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

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

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

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

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

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

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

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

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

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