Не работает упреждающее объявление класса

← →
Curse © (2011-01-05 14:45) [0]

type TLinkChannel = class;

type
TThreadSocket = class(TThread)
private
FOnTerminate : TNotifyEvent;

protected
procedure Execute; override;

public
DataStream : TMemoryStream;
Stream : TLinkChannel;
stateflag : TStateFlag ;
stateflag2 : TErorStatus;
errordesc : string;

Channel : TObject;
EstimatedCount : Integer;
procedure SetReadEvent;
procedure SetWriteEvent;
constructor Create(CreateSuspended : boolean; LinkChannel : TObject);

property OnTerminate : TNotifyEvent read FOnTerminate write FOnTerminate;

end;

type TLinkChannel = class
private
FSocketThread : TThreadSocket;

public
FWriteComplete : TSimpleEvent;
FPacketReceived : TSimpleEvent;
ClientSocket : TClientSocket;
Response : string;
BinaryResponse : TMemoryStream;
constructor Create();
destructor Free();
procedure OpenChannel;
procedure CloseChannel;
procedure Transceive (mess : string);
procedure WaitingData ;
procedure TextPacketReceive;
procedure SendMultiPartData (Header : string; FName: string);
procedure BinaryPacketReceive;
procedure TerminateProc (Sender : TObject);
procedure CloseThread;
end;

F9 ->
[Error] ThreadUnit.pas(19): Type "TLinkChannel" is not yet completely defined

Никак не пойму, что не так

← →
sniknik © (2011-01-05 14:50) [1]

> что не так
type слишком часто.

← →
KilkennyCat © (2011-01-05 14:51) [2]

неа, end слишком часто.

← →
Curse © (2011-01-05 14:53) [3]

Спасибо, всё получилось.

← →
sniknik © (2011-01-05 14:57) [4]

Удалено модератором

а, да, ступил, type же не закрывается, достаточно один раз.

Удалено модератором

Не работает упреждающее объявление класса Найти похожие ветки