Назначенный (TStopWatch) дает E2008

Question

Назначенный (TStopWatch) дает E2008

if assigned(S3) then Log('TChunkManager.UpdateVertices Create VAO ms: ' + 
  S3.ElapsedMilliseconds.ToString);

Проблема в назначенной части, я пробовал с Log('aaa'), а также Log отлично работает в других местах. Почему S3 (TStopwatch) несовместим с назначенным?

**[dcc64 Error] thChunkManager.pas(529): E2008 Incompatible types**

Как я могу проверить, создан ли S3 или нет?

1

delphi-10.1-berlin

Источник

user7629772 07 дек '17 в 23:37

1 ответ

Решение

Другие вопросы по тегам delphi-10.1-berlin

user65863 08 дек '17 в 00:16 2017-12-08 00:16 · Accepted Answer · 2017-12-08 00:16

TStopWatch это тип записи, а не тип класса. Экземпляр записи может быть создан в памяти стека вызывающего потока. Экземпляр типа класса должен динамически размещаться в динамической памяти. Только указатели могут быть переданы Assigned(), Экземпляр записи в стеке не считается.

Для того, что вы пытаетесь, вы, вероятно, хотите использовать TStopWatch.IsRunning свойство вместо:

if S3.IsRunning then
  Log('TChunkManager.UpdateVertices Create VAO ms: ' + S3.ElapsedMilliseconds.ToString);