Проблемы с потоком

[PTyTb32]

Привет, нужно в программу повесить отображение времени без секунд, я сперва юзал таймер но при его итерации вся форма моргала, ни и вообще таймеры использовать плохо. ну я не долго думая убрал таймер и сделал поток, но после этого программа начала жрать 25% когда открыта, можно ли это как то уменьшить?
Вот код класса

  TTimerThread = class(TThread)
  protected
    procedure Execute; override;
  end;

вот код сворачивания

  Connection.Connected := false;
  IdTCPServer1.Active := false;
  while MDIChildCount <> 0 do
    MDIChildren[0].Destroy;
  CanClose := cc;
  if not cc then
  begin
    tth.free;
    Hide;
  end;

вот код Show

tth := TTimerThread.create();

и код execute

procedure TTimerThread.Execute;
begin
  while not tth.Terminated do
  begin
    if fGeneral.Showing then
      fGeneral.CoolBar1.Bands[1].Text := 'Дата: ' +
        FormatDateTime('dd.MM.yy HH:mm', now);
  end;
end;

[Pavia]

PTyTb32
Для такой задачи плохим тоном считается как раз использовать потоки.

Делайте на таймере - НО не более 1 таймера на форму.

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

вся форма моргала

Это отдельный вопрос и самый простой. Form1.DoubleBuffered:=true;

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

но после этого программа начала жрать 25% когда открыта, можно ли это как то уменьшить?

Вставляйте паузы или отдавайте управление другому потоку.
Sleep(1);
SwitchToThread();

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

if fGeneral.Showing then
fGeneral.CoolBar1.Bands[1].Text := 'Дата: ' +
FormatDateTime('dd.MM.yy HH:mm', now);

VCL компоненты не являются потокобезопасными, при доступи к ним из потока их следует оборачивать в Synchronize

procedure TTimerThread.UpdateForm;
begin
  if fGeneral.Showing then
      fGeneral.CoolBar1.Bands[1].Text := 'Дата: ' +
        FormatDateTime('dd.MM.yy HH:mm', now);
end;

procedure TTimerThread.Execute;
begin
  while not tth.Terminated do
  begin
   Synchronize(UpdateForm);
   Sleep(100); // 100 мс время осознанной реакции мозга, так что меньше нет смысла ставить 
  end;
end;

[PTyTb32]

Pavia спасибо, попробую, а что значит "потокобезопасными"? сделал с таймером, моргать перестала.

[p51x]

https://ru.wikipedia.org/wiki/Thread-safety