Скачать: CL | DM;

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

← →
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]

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

---

← →
KilkennyCat ©   (2011-01-05 14:58) [5]

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

---

← →
Curse ©   (2011-01-05 14:58) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.004 c