delphi7一个类声明问题？小白级

[sffntml11]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, StdCtrls;
type
DataThread=TClientDataThread.Create(self);
end;
type

TForm1 = class(TForm)
Memo1: TMemo;
Label1: TLabel;
TcpServer1: TTcpServer;
procedure TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
private
{ Private declarations }
public
{ Public declarations }

end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
s:string;

DataThread:TClientDataThread;
begin
DataThread:=TclientDataThread.Create(true);//生成线程对象
DataThread.TargetList:=memo1.Lines;
[Error] Unit1.pas(35): Undeclared identifier: 'TClientDataThread'怎么声明？在那个位置
DataThread:=TClientDataThread.Create(self);是不是这样放TYPE还是在自己建一个，怎么写刚学类声明。

[sffntml11]

谁能不能写出来说了我是在学类声明线程，会的人可能一点通，我不会的肯定想看完整代码啊！

[bdmh]

type
  TClientDataThread = class(TThread);//此处声明TClientDataThread 
  TForm1 = class(TForm)
    TabControl1: TTabControl;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    DataThread : TClientDataThread;//此处声明TClientDataThread 实例
  public
    { Public declarations }
  end;
.
.
.
在合适的地方,创建实例
procedure TForm1.Button2Click(Sender: TObject);
begin
  DataThread:=TClientDataThread.Create(False);
end;

[zzj850902]

楼上的很完整。

[bdmh]

你还没有声明TClientDataThread,当然出错了

Type
TClientDataThread = class(TThread)

[hongqi162]

TClientDataThread实现了什么？你似乎是copy了别人的代码但是你的TClientDataThread所在unit没有copy过来

[火龙岛主]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Sockets, StdCtrls;
type
DataThread=TClientDataThread.Create(self);
end;
type

TForm1 = class(TForm)
Memo1: TMemo;
Label1: TLabel;
TcpServer1: TTcpServer;
procedure TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
private
{ Private declarations }
public
{ Public declarations }

end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
s:string;

DataThread:TClientDataThread;
begin
DataThread:=TclientDataThread.Create(true);//生成线程对象
DataThread.TargetList:=memo1.Lines;

搜索TClientDataThread相关单元，然后uses 单元名，就可以使用了。TclientDataThread不仅仅是声明那么简单，还需要具体的实现方法！

[kfcoffe]

Memo1