Delphi Can

Merhaba,

Free Pascal ile aynı sınıf içerisinde iki adet tip oluşturmayı ve miras almayı biraz biliyorum. Ancak ayrı bir dosya oluşturduğumda hatalar veriyor. Şimdiye kadarki kod:

Kod:

Program Project1(Input, Output, StdErr);

{$Mode Objfpc}{$H+}

{$Typedaddress On}

Uses

  {$IFDEF UNIX}{$IFDEF UseCThreads}

  CThreads, Unix,

  {$EndIF}{$EndIF}

  Classes, SysUtils,

  { you can add units after this }

  {$IFDEF WINDOWS}

  Windows, Dos, LCLIntF, MMSystem, LazUTF8,

  {$EndIF}

  FileUtil, Process, StrUtils, LazLoggerBase, DateUtils, Math, CustApp,

  Character,

  VInfo, VersionTypes,

  Config, AnalyzeParameters, Token;

Type

  { TMain }

  TMain = class(TCustomApplication)

  Protected

    Procedure DoRun; Override;

...

İkinci sınıf ise:

Kod:

Unit AnalyzeParameters;

{$Mode Objfpc}{$H+}

Interface

Uses

  Classes, SysUtils,

  Project1, Token, Config;

Type

  PAnalyzeParameters = ^TAnalyzeParameters;

  { TAnalyzeParameters }

  TAnalyzeParameters = Class(TMain)

  Private

  Protected

    Procedure DoRun;

  Public

  ...

Bunu çalıştırdığımda hata veriyor: analyzeparameters.pas(9,3) Fatal: Cannot find Project1 used by AnalyzeParameters of the Project Inspector.

Farklı dosyalarda hiyerarşiyi nasıl oluştururum?

onurcan1977