Обращение к объекту по имени, взятому из String

[darkwellroad]

Привет.. Есть несколько потоков разных типов. Вызываю их так

procedure CreateThread(Index: Byte);
begin
  case Index of
    0:
      Thread0.Create.FreeOnTerminate := True;
    1:
      Thread1.Create.FreeOnTerminate := True;
    2:
      Thread2.Create.FreeOnTerminate := True;
    3:
      Thread3.Create.FreeOnTerminate := True;
  end
end;

Создание объектов по индексу очень неудобно, т.к. количество типов потоков постоянно увеличивается. Хотелось бы хранить все типы в ini файле и обращаться к ним по имени.. Возможно ли такое?

[Stilet]

Ну а чего нет?
Храни.

[darkwellroad]

Сообщение от Stilet

Ну а чего нет?
Храни.

А как потом их создавать по имени из ini? Чтобы вы поняли, я имею ввиду что то типа "String.Create.FreeOnTerminate := True", где String - имя

[Аватар]

А зачем именно фиксированное имя? Записывай в какой-нибудь List или ObjectList созданные объекты и не парься с их именами

Ой, не просек что разные типы Или тип одинаковый, а то вроде имен? Там тип впереди должен быть

[darkwellroad]

Сообщение от Аватар

А зачем именно фиксированное имя? Записывай в какой-нибудь List или ObjectList созданные объекты и не парься с их именами

Тоже думал об этом, и если реализация обращения из String будет невозможна, то сделаю так, как вы сказали..

Сообщение от Аватар

Ой, не просек что разные типы Или тип одинаковый, а то вроде имен? Там тип впереди должен быть

type
  Thread1 = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    constructor Create;
    procedure DecThread(Sender: TObject);
    procedure Sync;
  end;

type
  Thread2 = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    constructor Create;
    procedure DecThread(Sender: TObject);
    procedure Sync;
  end;

type
  Thread3 = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    constructor Create;
    procedure DecThread(Sender: TObject);
    procedure Sync;
  end;

Каждый поток записан в свой Unit

[come-on]

Полиморфизм еще не изучали?

[darkwellroad]

Сообщение от come-on

Полиморфизм еще не изучали?

Приходило в голову, но потоки настолько разные, что на практике просто нет смысла объединять все в один с кучей разных параметров и т.п.

[come-on]

Полиморфизм это как раз наоборот.

[darkwellroad]

Сообщение от come-on

Полиморфизм это как раз наоборот.

Почитаю.. Может не совсем понял..

[evg_m]

type 
  TClassThread =class of TThread;// такое наверняка должно УЖЕ быть  в недрах модуля threads или как он там (но с другим именем)

procedure CreateThread(cls: TClassThread)
begin
  cls.Create.FreeOnTerminame:=true;
end;

CreateThread(TTread0);
CreateThread(TTread1);
CreateThread(TTread2);