Hallo, ich bin vor kurzem unter die Delphi-Entwickler gegangen (auch beruflich) und auch neu hier im Forum. Und hab auch gleich mal meine erste Frage.
Ich schreibe grade an einer
Unit zum Synchronisieren von Threads und hab mir eine Hilfs-Methode gebastelt, welche einen Codebereich automatisch mit einem Lock versieht und nach der Ausführung den Lock wieder entfernt. Die Methode sieht ca. so aus:
Code:
type
TLockedCode = reference to procedure;
procedure Locked(proc: TLockedCode);
begin
{ Code zum Erzeugen des Locks }
proc;
{ Code zum Entfernen des Locks }
end;
Ausführen lässt sich das Ganze über:
Code:
Locked(procedure
begin
{ Code der auf eine kritische Ressource zugreift }
end);
Das funktioniert auch, allerdings würde ich gerne prüfen, ob der Parameter "proc" der aufrufenden Funktion entspricht, weil bei einer Rekursion sonst ein Deadlock entstehen würde, was ich lieber über eine
Exception behandeln würde.
Gibt es eine Möglichkeit an die aufrufende Methode heranzukommen, welche auch ohne Stackframes funktioniert? (Eine Methode habe ich bereits gefunden, aber die funktioniert nur mit Stackframes)
LG