Programmablauf neben langer procedure

[BasicX]

Hi,

Ich habe eine procedure, die so ca 0,5 sec dauert (wird aber noch langsamer werden, denk ich mal) und nebenbei soll ein schneller Timer eine unabhängige andere Aufgabe erfüllen, kann ich die beiden Sachen mit relativ einfachen Mitteln entkoppeln??

Hab leider nichts passendes gefunden

Danke im voraus
BasicX

[mkinzler]

Verwende Threads

[BasicX]

hab noch nie treads verwendet, gibt es eine einfache Möglichkeit eine procedure als tread zu schreiben?

[DeddyH]

Ich weiß jetzt nicht, ob bei der PE die Demos dabei sind, aber falls ja, schau mal hinein, da ist ein gutes Beispiel dabei (unterschiedliche Sortier-Algorithmen).

[mkinzler]

Die Prozedur musst du in einem anderen Thread ausführen.
http://www.dsdt.info/tutorials/threads/

[BasicX]

kann ich einfach schreiben:

Delphi-Quellcode:

if checkbox2.Checked then
begin
 ThreadHandle:=CreateThread(nil, 0, TFNThreadStartRoutine((@Button2Click(nil)), nil, 0, ThreadID);
end;

oder muss ein Tread eine eigene Function sein?
oder habe ich wieder mal einen dämlichen Fehler gemacht

[BasicX]

sag mal, bin ich jetzt echt zu blöd, oder kann man keine procedure als tread laufen lassen, sondern nur functions

[edit]So, habs hinbekommen. mit Treads, aber auch etwas umstrukturiert[/edit]

[peschai]

Hallo
du kannst eventuell in deiner Procedur mehrfach, eventuell innerhalb ein etwaigen Schleife plazieren:
Application.ProcessMessages .
Damit kannst du u.a. erreichen, daß ein TTimer ausserhalb weiter benutzt werden kann.
Aber Vorsicht, du gibts damit die Kontrolle zeitweise an Windows zurück, was dann wieder messages verteilen kann. Bei ungeschickter Programmierung kann das zur Folge haben, daß andere Teile deines Programmes aufgerufen werden, welche du eigentlich erst nach Ende deiner Procedure aufrufen möchstest. Im Zweifel mit Hilfe einer Statusvariable dafür sorgen, daß dies dann nicht passiert.