>

이 모듈이 있습니다 :

   unit Unit1;
    interface
    uses classes;
    type TRObject = class(TObject) // reference count Object
    private
    FRecNo: longint;
    FRefCount: integer;
    FDeleted: boolean;
    public
    property RefCount: integer read FRefCount write FRefCount default 0;
    property RecNo: longint read FRecNo write FRecNo default -1;
    property IsDeleted: boolean read FDeleted write FDeleted default FALSE;
    procedure IncRF;
    procedure DecRF;
    constructor Create; overload;
    destructor Destroy; override;
    procedure SeekAndRead(var F: FILE; at: longint); // NEVER OVERLOADED
    procedure SeekAndWrite(var F:File;at: longint);
    procedure ReadObject(var F:FILE);  //NOT OVERLOADED AS ITS THE FIRST INSTANCE
    procedure WriteObject(var F:FILE); //NOT OVERLOADED AS ITS THE FIRST INSTANCE
    end;
    type TIDObject = class(TRObject) // Object with an ID number
    private
    FID: integer;
    public
    property ID: integer read FID write FID default -1;
    constructor create;  overload;
    destructor destroy;  override;
    procedure SeekAndRead(var F:File;at: longint);
    procedure SeekAndWrite(var F:File;at: longint);
    procedure ReadObject(var F: FILE); overload;
    procedure WriteObject(var F:FILE); overload;
    end;
    type TKeyObject = class(TRObject) // The key
    private:
    public:
    end;
    {
    private:
    FKey: string;
    public:
    property Key: string read FKey write FKey;
    constructor create; overload;
    destructor Destroy; override;
    procedure SeekAndRead(var F: File;at: longint);
    procedure ReadObject(var F: FILE); overload;
    procedure WriteObject(var F: FILE);overload;
    end;
    }
    implementation
    end.

솔직히 말해서 문제와 관련이 없기 때문에 구현 부분을 포함시키지 않았습니다. 내가 가지고있는 것은 컴파일하는 동안이 메시지입니다 :

[오류] unit1.pas [39] : 'END'예상되었지만 ':'이 (가) 발견되었습니다

잘 살펴 보았는데 오류가 어디에 있는지 보지 못했습니다 ... 구문인지 알고 있습니다. 컴파일러는 TKeyObject 선언에 Private :( 또는 Public :)이라는 단어를 넣는 순간이 작업을 수행합니다. 빈 TKeyObject 클래스가 있으면 오류 메시지가 표시되지 않습니다 (그러나 구조를 얻을 수 없을 때 어떤 용도로 사용됩니까? HELP!


  • 답변 # 1

    type
      TKeyObject = class(TRObject) // The key
      private:
      public:
      end;
    
    
    잘못된 pyzwyz를 제거하십시오  기호.

    이것은 컴파일러가 오류 메시지에서 의미 한 바입니다. : 를 찾았습니다  그것이 유효하지 않은 곳. 따라서 콜론을 검색하십시오.

    :

  • 이전 c++ - 속성이있는 요소의 XML GetText
  • 다음 C# Web Request w RestSharp - c # 웹 요청 w restsharp - "요청이 중단되었습니다 : ssl/tls 보안 채널을 만들 수 없습니다"