Работа с потоком

[nibufep]

Добрый день!
Возникла 2 вопроса по работе с классом TThread.

1) Как можно из потока получить текст из edit?

Делать это вот так не совсем удобно, можно ли сделать это как то проще?

procedure th.Execute;
begin
......
Synchronize(Sync);
......
end;

procedure th.sync;
begin
text:=Form.edit.text;
end;

2) Мне нужно сделать глобальные переменные, но чтобы их было видно только в текущем Unite, если добавить их в секцию private

private
var
.....
public

то поток перестает их видеть, как быть?

[Stilet]

Делать это вот так не совсем удобно

Почему неудобно?

Мне нужно сделать глобальные переменные, но чтобы их было видно только в текущем Unite, если добавить их в секцию private

Опиши их в разделе implementation перед телами потока.

interface
 type Thread=(....
...
implementation
 var Перемнки;
...
procedure Thread.Чего-то
begin
 Перемнки
....

[GreenWizard]

1) увы, только так, если не городить огород
2) обьяви глоб. в секции implementation и они станут доступны лишь в рамках модуля

[nibufep]

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

2) обьяви глоб. в секции implementation и они станут доступны лишь в рамках модуля

var
Form1: TForm1;

implementation
var
......

{$R *.dfm}

так?

[GreenWizard]

может понадобится опустить ниже "{$R *.dfm}", а так-то так