Выкинуть из юнита с потоком путь к unit1

[bulldog5293]

Как избавится от жёсткого прописывания в unite tthread unit'a формы, если к ней идёт обращение, кроме создания независимого класа? Просто если прописать так

function getnumberproxy: Integer;
begin
  if Ind <> form1.Edit1.text then //к примеру
    inc(Ind);
  result := Ind;
end;

без unit1? само собой работать не будет. Как отказаться от принудительного добавления?

[Slym]

В данном контексте form1.Edit1.text - это хранилище
Чтоб отвязаться от формы перенеси хранилище в другое место, например "создания независимого класа" или спец модуль с настройками

[Человек_Борща]

В данном контексте form1.Edit1.text - это хранилище
Чтоб отвязаться от формы перенеси хранилище в другое место, например "создания независимого класа" или спец модуль с настройками

Да зачем этот геморой?
ТС, в функцию передавайте ваш edit как параметр функции.

[bulldog5293]

Человек_Борща, а как его передать как параметр функции?

[Lardes]

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

а как его передать как параметр функции?

В самом юните потока используй переменную String и когда создаешь поток передавай текст Edit'а

...
  public
    FText: String;
...

function getnumberproxy: Integer;
begin
  if Ind <> FText then //к примеру
    inc(Ind);
  result := Ind;
end;