В моём приложении создаётся поток класса TThread. Во время работы потока результат заносится в переменную. Как в основ ной программе можно взять значение из этой переменной?

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

Код

...... var a:тип(integer,string); begin a:="переменная в которую вносится значение из потока"; ...... end; или если значений несколько попробуй: ...... var b:"тип"; begin for "твоя переменная":=1 to "число в зависимости от кол-ва результатов" do begin а потом: b:="твоя переменная"["число из массива"];

надеюсь я прав
удачи!

Это сообщение отредактировал(а) Alex - 26.2.2005, 21:48

Ты не прав. Всё, что связано с потоком, описывается в другом модуле, по этому программа "не видит" этого значения.

объясни!!

Сам смотри:

Код

program Project1; {$APPTYPE CONSOLE} uses  SysUtils, unit1; var s:string; begin //............. thread:=TMyThread.Create(False); //............. //Здесь надо занести в s значение str из потока. end.

Код

unit Unit1; interface uses  Classes,windows,messages; type  TMyThread = class(TThread)  private      public    procedure Execute; override;  end; var    str:string;    thread:TMyThread; implementation procedure TMyThread.Execute; begin //......... str:={....}; //.......... end; end.

Это сообщение отредактировал(а) a.S.d - 26.2.2005, 21:05

А на каком этапе работы потока тебе это нужно сделать? Если после его отработки, то просто берешь это значение и все:

Код

ShowMessage(Unit1.str);

Это сообщение отредактировал(а) <Spawn> - 26.2.2005, 21:59

<Spawn>
Во время взятия переменной поток должен ещё работать.
Unit1.str возвращает пустую строку.

попробуй в public описать переменные

Код

public a:string;

теперь должно сработать
да еще
ты сказал что поток должен продолжать работать
так тебе нужно определенное значение или нет??

Это сообщение отредактировал(а) Dr.No_xXx - 26.2.2005, 22:32

Dr.No_xXx
Если описать в public, то в модуле потока ошибка undeclareted identifier.

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

Код

unit Unit1; interface uses  Classes,windows,messages; type  TMyThread = class(TThread)  private      public    procedure Execute; override;  end; var    str:string;    thread:TMyThread; implementation procedure TMyThread.Execute; begin //......... str:={....}; //str любое значение или определенное? //.......... end; end.

Цитата

str любое значение или определенное?

Какая разница? Какое-то значение заносится в Str, а главный поток(сама программа) должна взять из str значение.

Так суть потока в том, что он выполняется параллельно относительно главного потока программы, т.е. для того чтобы получить занчение str, сформированное второстепенным потоком, ты должен дождаться этого и сообщить главному об изменении, например, таким образом:

1) послать сообщение(WM_USER + n) главному потоку о завершении формирования значения str, причем тут нужно либо организовать синхронизацию, либо быть увереным, что str больше не изменится:)

2)Инициировать потоком вызов синхронного события(предварительно описав его на подобии этого: TStrChange = procedure (Sender: TObject; const str: string);)

и т.д.

Это сообщение отредактировал(а) <Spawn> - 27.2.2005, 02:46

<Spawn>
У меня в потоке бесконечный цикл и str всё время меняется, так что сообщение я послать не могу, а в какой момент брать str определяет главный поток. Как можно по-другому это сделать?

1)попробуй создать массив в который будут вкладуваться все значения str но учти буфер не резиновый
2)если нужно определенное значение то пиши так:

Код

..... var s:string begin if str="что-то" then s:=str do begin .....

3)если любое то

Код

.......... randomize; .... s:=random(str);

в любом случае тебе прейдется перепресваивать значени в другую переменную что бы не потерять его

Dr.No_xXx
Похоже ты не правильно понял вопрос. Вот упрощёный код моей программы:

Код

program Project1; {$APPTYPE CONSOLE} uses  SysUtils, unit1; var s:integer; begin thread:=TMyThread.Create(False); sleep(1000); //Здесь надо занести в s значение str из потока, но всегда почему-то //заносится пустая строка end.

Код

unit Unit1; interface uses  Classes,windows,messages; type  TMyThread = class(TThread)  private      public    procedure Execute; override;  end; var    str:integer;    thread:TMyThread; implementation procedure TMyThread.Execute; begin while true do str:=str+1; end; end.