Forum: Tutorials und Kurse
by p80286,
20. Apr 2020
Danke für den Hinweis!
Gruß
K-H
Forum: Tutorials und Kurse
by p80286,
18. Apr 2020
Wer hat denn gesagt, daß es böse ist? Es ist nur kontraproduktiv. Damit hast Du die Vorteile von 2 Threads über bord geworfen, weil der Mainthread und der Produktivthread voneinnder abhängig sind. danit fällst Du auf das altbekannte
for i:=0 to x do
begin
machwas;
if i and $f =0 then
begin
label1.caption:=inttostr(i);
processMessages;
end;
Forum: Tutorials und Kurse
by p80286,
14. Apr 2020
procedure TmyThread.Syni;
begin
form1.Caption:= inttostr(i);
end;
procedure TmyThread.Synthreads;
var line: integer;
begin
form1.memo1.clear;
for line := Low(threads) to High(threads) do
Forum: Tutorials und Kurse
by p80286,
13. Apr 2020
@himitsu
Ich hab meine ersten Parallelschritte auf einer Einschubkarte mit T800 gemacht. Da war unser liebstes Wort "Deadlock" der hatte ein Speicherschutzkonzept das einen Anfänger in den Wahnsinn treiben konnte. Einziger Vorteil: du hast gelernt dich zu beschränken. Ich hab nur geflucht nd die Karte nach einem halben Jahr versenkt. Heute zehre ih immer noch von den damaligen Erfahrungen.....
...
Forum: Tutorials und Kurse
by p80286,
13. Apr 2020
Man lernt nie aus. Ich hielt das bisher für threadsafe - Glück gehabt.
Zeigt nur das der oft gebrauchte Rat "versuch es ..." nicht immer gut ist.
Gruß
K-H
Forum: Tutorials und Kurse
by p80286,
13. Apr 2020
Natürlich darf man Synchronize verwenden. Das ist dann wie ein Chef der die ganze Zeit über die Schulter schaut und sich dann beschwert, daß er sich um alles kümmern muß.Ein Thread ist erst dann sinnvoll wenn er "autark gedacht" wird. Wenn er länger läuft darf er messages versenden die dann vom Mainthread ausgewertet werden, das war es aber auch schon. Ist nicht ganz simpel aber machbar.
Gruß...