Funktion die von Programmen aufgerufen wird absichern

[himitsu]

Es kommt darauf an, wie diese Funktion arbeitet und wie sie aufgerufen wird.

Bei direkten Funktionsaufrufen könnte (aufgerufen von unterschiedlichen Threads) mehrere Abarbeitungen parallel ablaufen, wo man dann auch threadsicher in der Prozedur arbeiten müßte.

Windowsnachrichten werden erstmal grundsätzlich nacheinander abgearbeitet, da diese von einer Nachrichtenschleife aus der Warteschlange geholt und verarbeitet werden.
Da diese Schleife aber immer nur einwas gleichzeitig machen kann, läuft hier erstmal grundsätzlich nie etwas gleichzeitig ab.
ABER, wenn jetzt in der Abarbeitung z.B. Application.ProcessMessages aufgerufen und damit die Nachrichtenverarbeitung zwischenzeitlich wieder aufgenommen wird, dann wird/kann wärend dieses Aufrufs (Application.ProcessMessages) auch noch ein weiteres Mal deine Prozedur gestartet werden, wobei der vorhergehende Aufruf natürlich wärend dieser Zeit stillsteht.


Beispiel:
Man nehme 2 Buttons und ein Memo
und nun kann man nach Belieben auf den Buttons rumklicken

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('1 Start');

  // irgendwas machen
  Sleep(3000);

  Memo1.Lines.Add('1 Ende');
end;

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  Memo1.Lines.Add('2 Start');

  // irgendwas machen und zwischendurch mal
  // die Nachrichtenverarbeitung laufen lassen
  for i := 1 to 15 do begin
    Memo1.Lines[Memo1.Lines.Count - 1] :=
      Memo1.Lines[Memo1.Lines.Count - 1] + ' *';
    Sleep(200);
    Application.ProcessMessages;
  end;

  Memo1.Lines.Add('2 Ende');
end;

Beim Klick auf einen Button, wird eine Button-Klick-Nachricht an die VCL geschickt.