Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Curse © (2011-01-05 14:45:00)
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

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

KilkennyCat (2011-01-05 14:58:00) [1]
а, да, ступил, type же не закрывается, достаточно один раз.

Curse (2011-01-05 14:58:00) [2]
Удалено модератором

sniknik (2011-01-05 14:57:00) [3]
Удалено модератором

Curse (2011-01-05 14:53:00) [4]
Спасибо, всё получилось.

KilkennyCat (2011-01-05 14:51:00) [5]
неа, end слишком часто.

sniknik (2011-01-05 14:50:00) [6]
> что не так
type слишком часто.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »