0

Это кусок кода для работы с классами. Т.е. создал класс Tso и описал процедуры.

[DCC Error] Unit2.pas(68): E2065 Unsatisfied forward or external declaration: 'Tso.Eat'

Проблема в том, что я не описал процедуру, но её же пока не нужно описывать?

unit Unit2;
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  Ts=record
    Eat: string[20];
    Name: string[30];
    Year: string[5];
  end;

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    .....
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }

  end;
type
  TSo=class
procedure Eat;
end;

var
  Form2: TForm2;
  my: TSo;
  f: file of Ts;
implementation

{$R *.dfm}

end.

3 ответа 3

0

Object Pascal не поддерживает inline описание методов класса и записей( сишных структур ), как это может C|C++. Так, что в классах и записях идет одно лишь описание без реализации. Сама реализация происходит уже вне класса или записи. Поэтому, реализовывайте код функций и процедур вот так:

procedure Tso.Eat();
begin
// some actions...
end;

И, кстати, реализация всех описанных методов обязательна, как и в C`ях.

2
  • 1
    Только на момент компиляции в сях имплементация не нужна если метод не используеться, а в паскале нужна, т.к. он сразу и линкует.
    – Чад
    13 июн 2012 в 15:21
  • Спасибо, @Чад.
    – AseN
    13 июн 2012 в 15:39
0

Почему это ещё не надо? Это не си, это Object Pascal

Добавьте в секцию implementation заглушку:

procedure Tso.Eat;
begin
end;
-2

А про virtual;abstract; никто не знает чтоли?

TSo=class
  procedure Eat;virtual;abstract;
end;

и нечего не надо в implementation добавлять.

10
  • 1
    т.е. вы предлагаете использовать директивы "virtual;abstract;", как простую заглушку? следующий вопрос: вы знаете для чего они нужны?
    – teanЫЧ
    14 июн 2012 в 7:56
  • А с чего все решили что Автору вопроса нужна заглушка? Вопрос звучал так "Проблема в том, что я не описал процедуру, но её же пока не нужно описывать?" И вполне возможно что описыватся процедура будет в какомто потомке. Или сперва человеку нужно давать неверное направление чтоб потом гордо сказать "ООП учить надо".
    – Vahan Av
    14 июн 2012 в 10:58
  • я к тому, что если вы даете подобные ответы, то объясняйте квестгиверу, что это и с чем это едят. PS. автор не сказал, что будет лепить потомков из этого класса PPS. у автора могло сложиться ложное впечатление, что вы дали ему пример заглушки
    – teanЫЧ
    14 июн 2012 в 12:03
  • Vahan Av, вы действительно знаете ли значение виртуальных абстрактыных методов класса? =)
    – AseN
    14 июн 2012 в 12:23
  • ну если я тут теперь чтото напишу всегда можно будет сказать что прогуглил и скопировал )). Если вам это дествительно интересно всегда готов показать проекты над которыми я работаю. Ну думаю здесь на совсем подходяшее место. Ну Если чтото серезное есть и это зависит от глубины моих знаний делфи можете на маил написать)).
    – Vahan Av
    14 июн 2012 в 12:40

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.