Rechenzeit für Anwendung

[Angel4585]

Hallo zusammen,

Folgendes Problem:

Ich hab eine Komponente, welche den Inhalt zweier Tabellen vergleicht.

das ganze geschieht in einer Schleife. Wenn diese durchlaufen wird, hängt mein Programm solange bis die Schleife durchlaufen ist. Normalerweise würd ich jetzt ein Application.ProccessMessages einbauen, allerdings geht das in einer externen Unit nicht, da ich die Unit Forms benötigen würde und wenn ich die einbinde hängt sich das Programm komplett auf. also wie stell ich es am besten an trotzdem Rechenzeit für meine Anwendung freizuboxen? Gibts da was anderes als das Application.ProccessMessages?

Danke schonmal

:angel:

[marabu]

Hallo Martin,

vielleicht möchtest du es noch ein wenig an deine Bedürfnisse anpassen, aber das sollte mit der Online Hilfe kein Problem sein:

Delphi-Quellcode:

procedure ProcessMessages;
var
  Msg: TMsg;
begin
  if PeekMessage (Msg, 0, 0, 0, PM_REMOVE) then begin
    TranslateMessage (Msg);
    DispatchMessage (Msg);
  end;
end;

Grüße vom marabu

[Angel4585]

Funzt perfekt, Danke!! :thumb:

Edit: zu früh gefreut.. :? Ich kann das programm nicht beenden. Kann man in die Prozedur etwas reinpacken, damit das geht?

Habs, :-D :

Delphi-Quellcode:

procedure ProcessMessages; 
var 
  Msg: TMsg; 
begin 
  if PeekMessage (Msg, 0, 0, 0, PM_REMOVE) then 
   begin 
   if Msg.Message = WM_QUIT then
    Halt;
   TranslateMessage (Msg); 
   DispatchMessage (Msg); 
   end; 
end;

[Luckie]

Und warum machst du es nicht gleich richtig und benutzt Threads?

[Angel4585]

Ein Thread innerhalb einer Komponente?

[Luckie]

Was spricht da gegen?

[Angel4585]

Naja ich bin jetzt schon fertig, und so wies aussieht funzt es sogar.. Programmierer sind faul, also warum nochmehr arbeit? :gruebel: :coder2:

[Luckie]

Weil gute Programmierer Perfektionisten sind - zumindest in Sachen Programmierung. ;)

[Angel4585]

Hmm.. mal schaun, wenn ich Zeit dafür hab werd ich das denk ich mal machen. ist dann auf alle Fälle einfacher als so wie ich das jetzt hab.

[3_of_8]

Also ich würde sagen, wenn es funzt, warum anders machen?