VPF::Объявление объекта-потока - Форум программистов

ilyuha

Дата 14.9.2007, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 111
Регистрация: 10.7.2007

Репутация: нет
Всего: нет

Здрасте.
недавно возникла необходимость заюзать в проге поток. это мой первый опыт использования потока... так что, заранее очень прошу не смеяться надо мной smile

вот сырцы:
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.

и вот, никак я не могу понять, почему возникает эта ошибка?
подскажите плиз, а то я уже волнуюсь за свое психическое состояние smile

вся надежда только на вас smile

bems

Дата 14.9.2007, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

сравни TFilerObj и TFilterObj

--------------------

Обижено школьников: 8

ilyuha

Дата 14.9.2007, 18:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 111
Регистрация: 10.7.2007

Репутация: нет
Всего: нет

прошу прощения у всех, но я валяюсь пацталом - обычная опечатка smile

удалите тему плиз smile

bems

Дата 14.9.2007, 18:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

просто пометь вопрос решенным

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »