[mighty_man]

Привет всем!
Проблема такая. Создаю из VCL поток, выполняю в нем действия, затем в VCL уничтожаю этот поток. Ошибок никаких нет, но потом попробовал обращаться к переменной этого потока, чтение и запись происходит, хотя поток был уничтожен. Почему так?
Создаю так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  if (OpenDialog1.Execute) and (OpenDialog1.Files.Count > 0) then
    begin
      Data.Clear;
      ReadThread:=TReadThread.Create(OpenDialog1.Files, @Data);
      ReadThread.FreeOnTerminate:=False;
      ReadThread.OnTerminate:=FinishedRead;
      ReadThread.Resume;
      for i:=0 to OpenDialog1.Files.Count-1 do
        Memo1.Lines.Add(OpenDialog1.Files[i]);
    end;
end;

Уничтожаю так:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Assigned(ReadThread) then
    begin
      if not ReadThread.Terminated then
        begin
          ProgressBar1.Max:=ReadThread.ProgressEnd;
          ProgressBar1.Position:=ReadThread.Progress;
        end
      else
        begin
          ReadThread.Free;
          ProgressBar1.Position:=0;
        end;
    end
end;

[Aristarh Dark]

Код потока бы глянуть...

[mighty_man]

Класс потока:

Код:

type TReadThread = class(TThread)
  private
    Filenames: TStrings;
    fData: PData;
  protected
    procedure Execute; override;
  public
    ProgressEnd: Integer;
    Progress: Integer;
    constructor Create(AFilenames: TStrings; AData: PData);
end;

Execute:

Код:

procedure TReadThread.Execute;
var f: TextFile;
s: string;
i: integer;
sl: TItemData;
begin
  for i:=0 to Filenames.Count-1  do
    begin
      AssignFile(f, Filenames[i]);
      Reset(f);
      sl:=TItemData.Create(Filenames[i]);
      fData.Items.Add(sl);

      ProgressEnd:=FileSize(f);
      Progress:=0;
      while not eof(f) do
        begin
          readln(f, s);
          fData.Items.Last.Items.Add(s);
          Progress:=Progress + Length(s);
        end;

      CloseFile(f);
    end;
end;

[Aristarh Dark]

А покажи мне то место где ты выставляешь свойство потока Terminated в истину...

[mighty_man]

Сообщение от Aristarh Dark

А покажи мне то место где ты выставляешь свойство потока Terminated в истину...

Сам не выставляю. Выполняется execute и поток завершается. Смотрел дебагером, после завершения потока terminated стоит true.

[mighty_man]

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