Size: a a a

2020 June 02

AI

Alexander Ivanov in Delphi & Lazarus
TThread
источник

АА

Алиби Алшынбай... in Delphi & Lazarus
Procedure execute
If mytimer = true and fclientsocket = true
источник

АА

Алиби Алшынбай... in Delphi & Lazarus
Проверить
источник

GB

George Bakhtadze in Delphi & Lazarus
Renat Suleymanov
МОжет не совсем по теме. Касательно SQLite3 и расширения FTS5 для полнотекстового поиска... Правильно ли я понял, что конструкция MATCH "*TOKEN*" или "*TOKEN" и индексирование таких конструкций  в принципе невозможна?
возможна, для этого есть специальные индексаторы. типа elastic'а. в постгресе тоже есть вроде. умеет ли так данное расширение - надо смотреть доки
источник

АА

Алиби Алшынбай... in Delphi & Lazarus
Как можно
источник

АА

Алиби Алшынбай... in Delphi & Lazarus
TMyThread  = class(Thread)
Protected
Procedure execute;override;
End

Второй класс
MyClass =class(TComponent)
Private
Mytimer :TTimer;
Fclientsocket : TTcpBlocksocket;
Public
Property clientSocket : TTcpBlocksocket read fclientsocket;
Procedure execute
If mytimer = true and fclientsocket = true как к ним обратиться
источник

GB

George Bakhtadze in Delphi & Lazarus
Алиби Алшынбай
Как можно
вынеси нужное из VCL классов в отдельную переменную и обращайся через синхронизацию
источник

AD

Aleksandr Duduk in Delphi & Lazarus
10.2.3
источник

АА

Алиби Алшынбай... in Delphi & Lazarus
George Bakhtadze
вынеси нужное из VCL классов в отдельную переменную и обращайся через синхронизацию
Не совсем понял Вас не могли бы  показать если не трудно Вам?
источник

SB

Sergey Bodrov in Delphi & Lazarus
Suspend/Resume устаревшие, а Suspended - нет. Впрочем, для запуска потока, который был создан остановленным рекомендуется Start(). http://docwiki.embarcadero.com/Libraries/Rio/en/System.Classes.TThread.Start
источник

VA

Viktor Akselrod in Delphi & Lazarus
Sergey Bodrov
Suspend/Resume устаревшие, а Suspended - нет. Впрочем, для запуска потока, который был создан остановленным рекомендуется Start(). http://docwiki.embarcadero.com/Libraries/Rio/en/System.Classes.TThread.Start
да потому что свойство не может быть помечено, как deprecated
источник

SB

Sergey Bodrov in Delphi & Lazarus
Алиби Алшынбай
Как можно
TMyThread  = class(Thread)
protected
 procedure execute; override;
 procedure SyncProc();
end;

procedure TMyThread.Excecute();
begin
 Synchronize(SyncProc);
end;

procedure TMyThread.SyncProc();
begin
 // выполняется внутри Synchronize в основном потоке программы
 if Form1.Timer1.Enabled then ...
end;
источник

SB

Sergey Bodrov in Delphi & Lazarus
Viktor Akselrod
да потому что свойство не может быть помечено, как deprecated
Это прискорбно. Но в документации про это ни слова.
источник

AS

Alexey Shumkin in Delphi & Lazarus
Sergey Bodrov
TMyThread  = class(Thread)
protected
 procedure execute; override;
 procedure SyncProc();
end;

procedure TMyThread.Excecute();
begin
 Synchronize(SyncProc);
end;

procedure TMyThread.SyncProc();
begin
 // выполняется внутри Synchronize в основном потоке программы
 if Form1.Timer1.Enabled then ...
end;
нинада  так, пажаласта!
источник

AS

Alexey Shumkin in Delphi & Lazarus
Алиби Алшынбай
TMyThread  = class(Thread)
Protected
Procedure execute;override;
End

Второй класс
MyClass =class(TComponent)
Private
Mytimer :TTimer;
Fclientsocket : TTcpBlocksocket;
Public
Property clientSocket : TTcpBlocksocket read fclientsocket;
Procedure execute
If mytimer = true and fclientsocket = true как к ним обратиться
форматируй код
источник

АА

Алиби Алшынбай... in Delphi & Lazarus
Sergey Bodrov
TMyThread  = class(Thread)
protected
 procedure execute; override;
 procedure SyncProc();
end;

procedure TMyThread.Excecute();
begin
 Synchronize(SyncProc);
end;

procedure TMyThread.SyncProc();
begin
 // выполняется внутри Synchronize в основном потоке программы
 if Form1.Timer1.Enabled then ...
end;
Щас попробую отпишусь
источник

VA

Viktor Akselrod in Delphi & Lazarus
Sergey Bodrov
Это прискорбно. Но в документации про это ни слова.
источник

AS

Alexey Shumkin in Delphi & Lazarus
Алиби Алшынбай
TMyThread  = class(Thread)
Protected
Procedure execute;override;
End

Второй класс
MyClass =class(TComponent)
Private
Mytimer :TTimer;
Fclientsocket : TTcpBlocksocket;
Public
Property clientSocket : TTcpBlocksocket read fclientsocket;
Procedure execute
If mytimer = true and fclientsocket = true как к ним обратиться
ты ответь, наконец, НА.ХЕ.РА ТАК делать?
источник

АА

Алиби Алшынбай... in Delphi & Lazarus
Alexey Shumkin
ты ответь, наконец, НА.ХЕ.РА ТАК делать?
Ну я создаю компонент я не знаю просто как правильно у меня есть udpсокет  он шлёт определенныц пакет на  сервер udp  а сервер в ответ шлёт мне ip и порт tcp совета я к нему подключаюсь уже по tcp
источник

SB

Sergey Bodrov in Delphi & Lazarus
Я имею в виду, что в документации по свойству Suspended не указано, что оно deprecated.
источник