Здрасте.
недавно возникла необходимость заюзать в проге поток. это мой первый опыт использования потока... так что, заранее очень прошу не смеяться надо мной 
вот сырцы:
1. гл.модуль:
| Код | unit filter;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
FilterTheard, StructTypes, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
procedure EditFilterKeyPressed(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.EditFilterKeyPressed(Sender: TObject; var Key: Char);
var
Struct: StructArr;
Filter: TFilerObj; // здесь компилятор то и выдает ошибку - "Undeclared identifier: 'TFilerObj'"
begin
Filter:=TFilterObj.Create(true); // однако, как ни странно, в логах ошибки на этой стрноке нет
end;
end. |
2. еще пустой модуль FilterTheard:
| Код |
unit FilterTheard;
interface
uses
Classes, StructTypes;
type
TFilterObj = class(TThread)
private
{ Private declarations }
public
a: StructArr;
protected
procedure Execute; override;
end;
implementation
{ TFilterObj }
procedure TFilterObj.Execute;
begin
{ Place thread code here }
end;
end.
|
3. модуль StructTypes, где объявлен тип массива:
| Код |
unit StructTypes;
interface
type
TID3TagEX = record
Filled:Boolean;
ID,Titel,Artist,Album,Comment,Genre,Freq,
Channels,BitRate,Year,CopyR,fldName,fldLen,fldFullName:string;
GenreID:Byte;
fldByteLen:Extended;
end;
StructArr=array of TID3tagEX;
implementation
end.
|
и вот, никак я не могу понять, почему возникает эта ошибка?
подскажите плиз, а то я уже волнуюсь за свое психическое состояние 
вся надежда только на вас  |
