[ALexandr555]

Код:

 type
    TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute(x1,x2: String; nomer: integer); reintroduce;
  public
    constructor Create(x1,x2: String; nomer: integer); overload;
end;

constructor TMyThread.Create(x1,x2: String; nomer: integer);
begin
   Create(True);
   FreeOnTerminate := True;
   Priority := tpNormal;
   Execute(x1,x2,nomer);
end;

procedure TMyThread.Execute(UIN,Msg: String; nomer: integer);
//тут сам код потока уже

нужно передавать пераменные в поток, вот у меня собственно вопрос все ли правильно сделал, тестировал вроде работает

[v1s2222]

Ну думаю надо объявлять так:

Код:

 type
    TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute(x1,x2: String; nomer: integer); reintroduce;
  public
    constructor Create(x1,x2: String; nomer: integer); {overload  не нужен}
...

Overload нужен только там, где надо объявить две или более функций с одинаковым названием.

[ALexandr555]

я просто думал мб я не правильно вызываю поток обычно Resume; надо но туда переменные не подставишь, спасибо

[v1s2222]

Дак вы же сами предложили использовать reintroduce. Именно он и разрешает "переопределять" процедуру.

[ALexandr555]

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

[NumLock]

Код:

type
  TMyThread = class(TThread)
  private
    iParam: Integer;
    sParam: String;
  protected
    procedure Execute; override;
  public
    constructor Create(iParam: Integer; sParam: String);
  end;

constructor TMyThread.Create(iParam: Integer; sParam: String);
begin
  inherited Create(True);
  Self.iParam:=iParam;
  Self.sParam:=sParam;
  Resume;
end;

procedure TMyThread.Execute;
begin
  while not Terminated do
  begin
//    iParam:=$ff;
//    sParam:='lost';
  end;
end;

Код:

TMyThread.Create($ff, 'lost');

[v1s2222]

Reintroduce просто переопределяет функцию (процедуру). То бишь не выводит сообщение о перекрытии метода. В вашем случае метод Execute есть у класса TThread. А вы его переопределяете под ваши нужды.

[ALexandr555]

благодарю за пояснение NumLock и v1s2222

[ALexandr555]

чето мне кажется чтото не так у меня, через некоторое время начинает писать мол недостаточно памяти для работы, похоже они не удаляются чтоли потоки

[NumLock]

создай временно destructor и поставь в нем точку останова:

Код:

type
  TTitanicThread = class(TThread)
  public
    destructor Destroy; override;
  end;

{ TTitanicThread }

destructor TTitanicThread.Destroy;
begin
  inherited Destroy; //тут Breakpoint
end;

[ALexandr555]

чтоб проверить разрушается ли?

[ALexandr555]

не останавливается в том месте, хотя в потоке функция выполнилась, должно было разрушиться

[ALexandr555]

а сделано моим способом выше, мб переделать под твой?

[ALexandr555]

NumLock твоим способом вроде работает, но чтото форма глючит два memo пропадает и label на половину прикрыт, а при закрытии ошибка
Error. Code: 1400. Недопустимый дескриптор окна

[NumLock]

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

NumLock твоим способом вроде работает, но чтото форма глючит два memo пропадает и label на половину прикрыт, а при закрытии ошибка
Error. Code: 1400. Недопустимый дескриптор окна

у меня в примере нет форм, мем и лэйблов)