[TCriticalSection] Kann ich in D7 testen ob "entern"?

[xZise]

Hallo DP,
soweit ich weiß, kann man unter TD-E mit der CritcalSection überprüfen, ob gerade keine Instanz darauf zugreift, und wenn der Fall eintritt es dann auch tut.

Aber wie ist das unter Delphi 7?
Ich bin mir jetzt nicht sicher, aber normalerweise müsste das doch so sein:

Delphi-Quellcode:

if <CS>.CanEnter then
begin
  // Enter ist möglich ohne zu blockieren
  // Zugriff auf Variable
end;

MfG
xZise

[sirius]

Wie meinst du das?

etwa so:
TryEnterCriticalSection

[xZise]

Hallo sirius,
ich habe gerade mal TD-E gestartet (Problem: Da gibts keine SpinEdits :( ) und es heißt "TryEnter".
Also das meine ich. Aber wie setze ich das mit TCriticalSection um?

MfG
xZise

[sirius]

(Wieviele Beiträge hast du bereits :gruebel:)

Delphi-Quellcode:

type TCriticalSectionEx=class(TCriticalSection)
       public
         function TryEnter:boolean;
     end;



function TCriticalSectionEx.TryEnter:Boolean;
begin
  result:=TryEnterCriticalSection(FSection);
end;

[sirius]

Und äh... In der Unit Spin gibt es ein TSpinEdit ...auch in der Turbo Version.

Außerdem kannst du dir mit einem Edit und eine TUpDown recht schnell eine eigenes TSpinEdit basteln.

[Khabarakh]

Vor allem ist bei TDE doch der ganze RTL-Quelltext dabei :gruebel: ?