Можно выключить части - и опытным путем нащупать проблему, допустим отключить вывод SQL данных, загружать но не выводить. Если будет расти - то проблему искать в уже в реализации получении данных.
Но это опять предположение[/quote]
Ребят, я ж написал - сделал ТЕСТОВЫЙ проект, там кроме приведенного кода нет НИЧЕГО. Никаких запросов к БД.
И если не выводить часики - все Ок!
Добавлено спустя 1 минуту 33 секунды:
Ребят, я ж написал - сделал ТЕСТОВЫЙ проект, там кроме приведенного кода нет НИЧЕГО. Никаких запросов к БД.
И если не выводить часики - все Ок!
Добавлено спустя 2 минуты 35 секунд:
olegy123 писал(а):Можно выключить части - и опытным путем нащупать проблему, допустим отключить вывод SQL данных, загружать но не выводить.
Ребят, я ж написал - сделал ТЕСТОВЫЙ проект, там кроме приведенного кода нет НИЧЕГО. Никаких запросов к БД.
И если не выводить часики - все Ок!
Добавлено спустя 19 минут 9 секунд:
Вот весь код:
- Код: Выделить всё
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, ComCtrls,Math;
type
{ TForm1 }
TForm1 = class(TForm)
Label1: TLabel;
Panel1: TPanel;
StatusBar1: TStatusBar;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
ttt:Integer;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
ttt:=200;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
dt:TDateTime;
mm,ss:Integer;
begin
dt:=time;
ttt:=ttt-1;
mm:=ttt div 60;
ss:=ttt mod 60;
StatusBar1.Panels[0].Text:=IntToStr(mm)+' мин '+IntToStr(ss)+' сек';//
Label1.Caption:=TimeToStr(dt);
//два предыдущих вывода грузят ЦП
//а этот - нет
Form1.Caption:=IntToStr(mm)+' мин '+IntToStr(ss)+' сек';
if ttt=1 then ttt:=200;
end;
end.
Добавлено спустя 3 часа 55 минут 46 секунд:
И да, ситуация опробована на 4-х машинах.