узнать состояние переменной из другого потока

[Stilet]

А просто через указатель нельзя узнать?

Это костыли. Можно но не нужно.

[Antony41]

Короче создал отдельный класс TLicense, включил в главный поток, а из других потоков проверяю и изменяю параметры класса через Synchronize, с критическими секциями геморой получается

[Turbine]

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

Это костыли. Можно но не нужно.

Согласен, Однако это не самые худшие "костыли" плюс отличное средство от геморроя. Если существует возможность решить поставленную задачу с меньшими усилиями, более простым кодом - почему бы и нет.

[Stilet]

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

Потому что в этом случае придется четко расставить приоритеты таких усилий - на кого оно придется, на ПО или программиста. И если второе далеко не самый худщий вариант, поскольку программист наставит всяких проверок и защит, то первое будет обязательно приводить к AV в самых неожиданных условиях эксплуатации. Банально - разные менеджеры памяти, одни слябовые другие... забыл термин, SLOB кажется. Ну не важно - разница в выделении памяти, если утрировать проблему, и "фсе". Финита ля Мистраль. Приплыли.

[Antony41]

Turbine, Что то я совсем туплю. передать указатель на переменную, а потом то что находится под указателем (наша переменная) менять уже из доп. потока?

Main.pas

...

var
MyVar1: integer;
MyThread: TMyThread;
...

procedure TMainForm.Button1.Click(Sender: TObject)
begin
MyThread := TMyThread.Create(true);
MyThread.MyVar1 := @MyVar1;
MyThread.Suspend;
end;

type
TMyThread = class(TThread)
public
MyVar1: PInteger;
...
end;

procedure TMyThread.Execute;
begin
while not Terminated do
begin
inc(MyVar1^);

//или проверять 
if MyVar1^ = 10000 then
break;
end;
end;

Я Вас правильно понял?

[Turbine]

Вы поняли меня правильно. Можно для повышения надежности и кросс там чего-то еще

if UInt32(MyVar1^)=10000;

Переменная тогда должна быть тоже UInt32
Для себя делаю так + обработка исключений и тесты, тесты, тесты... под x86 и x64

[Antony41]

Не чёто я совсем запутался))) а это не тоже самое что ли? что я смотрю под указателем в эту же переменную, которая кстати в момент обращения к ней одного потока, может быть занята чтением или записью другого потока, и AV не возникнет?
Короче не тоже ли самое?

UInt32(MyVar^) := 1000

и

MyVar := 1000

И можно ли обратиться одновременно из двух потоков к этой переменной для чтения? с записью понятно что нет

[Stilet]

можно ли обратиться одновременно из двух потоков к этой переменной для чтения?

Для чтения - да. В любой момент, и ничего не будет. А вод для записи придется другие потоки притормаживать.

[Antony41]

спасибо большое разжевали. Это как с файлами читать хоть сколько пользователей может, а записывать только один

[Stilet]

читать хоть сколько пользователей может, а записывать только один

Ну не... Файлы то как раз можно запрещать и так и сяк. Я часто, работая в Фокспро, сталкиваюсь с тем, что фокс блочит файлы, открытые им даже на чтение.