lazarus compiled program running too slow?

[halflifezy]

I found that lazarus compiled program running too slow
for example code below:
procedure computetime( );
var
  count:integer;
  deltatime:integer;
begin
  count:=0;
  deltatime:=GetTickCount();
  while(count<=900000)do
  begin
    Application.ProcessMessages();
    count:=count+1;
  end;
  deltatime:=GetTickCount()-deltatime;
  Memo1.Lines.Add(IntToStr(deltatime));
end;

running on delphi7 or xe2 with winxp only 37ms, but lazarus' program need
more than 1000ms.
my computer is amd3000+ 1G memory
will it can be better in future version?

[Leledumbo]

perhaps due do different implementation of Application.ProcessMessages(). Try not to use it whenever not really required (threads could be alternative)

[halflifezy]

well, thank you very much,problem sloved.
I use code:
procedure processmessage();
var
msg:TMSG;
begin
if (PeekMessage(@msg,0,0,0,PM_REMOVE)) then
 begin
 TranslateMessage(@msg);
 DispatchMessage(@msg);
 end;
end;


I use code above instead of Application.ProcessMessages then speed
run is better now.thank you a gain.
I love lazarus more and more now

[Laksen]

The problem is of course that your new code won't work in any operating system but windows.

[User137]

It does sound like a problem that should use a separate thread.