Polya
Принятый Кодер
- Регистрация
- 8 Июн 2016
- Сообщения
- 47
- Баллы
- 50
Пример класса.
Я хочу передавать в свойство не значение, а переменную. В потоке цикл постоянно обновляет метод, и в качестве аргумента передает переменную.
Если она в потоке будет всегда True, тогда свойство будет выполняться всегда.
Код:
type
TMyObject = class
privat
procedure SetEnabled(Key: string; var value: boolean);
public
property Enabled[Key: string]: boolean write SetEnabled;
end;
procedure TMyObject.SetEnabled(Key: string; var value: boolean);
var
https: TNetHTTPClient;
begin
if value then
begin
value := False;
https := TNetHTTPClient.Create(Nil);
https.Get('https://domen.com/apiv58.1/method?key=' + Key);
https.DisposeOf;
end;
end;
Если она в потоке будет всегда True, тогда свойство будет выполняться всегда.