Auswertung Lokale Variablen unvollständig

[BerndS]

In diesem Beispiel klappt es sowohl in der lokalen Prozedur ShowValues als auch in der anonymen im TTast.Run mit D11.1 wenn man mit der Maus rüber geht oder diese im den überwachten Ausdrücken hinzufügt.

Delphi-Quellcode:

procedure TForm1.bt1Click(Sender: TObject);
var
  S1, S2: string;
  B: Byte;
  I: Integer;
  procedure ShowValues;
  var
    S: string;
  begin
    S := S1 + #32 + S2 + #32 + B.ToString + #32 + I.ToString;
    OutputDebugString(PChar(S));
  end;
begin
  S1 := 'S1';
  S2 := 'S2';
  B := 255;
  I := B *100;
  ShowValues;
  TTask.Run( procedure
  var
    S: string;
  begin
    S := S1 + #32 + S2 + #32 + B.ToString + #32 + I.ToString;
    OutputDebugString(PChar(S));
  end);

Aber mit 10.4.2 sind S1 usw. nur im TTask.Run sichtbar.

[Benmik]

Ich habe mal rasch diese Prozedur rausgehauen:

Delphi-Quellcode:

procedure TForm3.Test;
var FS:TFileStream;
    Datname:string;
    Dateigröße:Cardinal;
//-------------------------------------------------------------------------------------
  function LeseDateiInStream:Boolean;
  begin
    FS := TFileStream.Create(Datname,fmOpenRead or fmShareDenyWrite);
    Dateigröße := FS.Size;
    Result := (Dateigröße > 0);
  end;
//-------------------------------------------------------------------------------------
begin
  Datname := 'C:\Temp\Test.txt';
  If not LeseDateiInStream
    then exit;
end;

... aber was passiert? Die Variablen werden in der Unterprozedur ausgewertet. Heute ist wohl nicht mein Frage-Tag. Ich hatte gestern eine Prozedur, wo es nicht klappte, wenn ich wieder auf die stoße, dann melde ich mich wieder.

[Der schöne Günther]

Zitat von BerndS:

In diesem Beispiel klappt es sowohl in der lokalen Prozedur ShowValues als auch in der anonymen im TTast.Run mit D11.1 wenn man mit der Maus rüber geht oder diese im den überwachten Ausdrücken hinzufügt.

Das ist ja toll, das wäre ein weiterer Grund für mich endlich mal upzudaten 😎

[hoika]

Hallo,
ist die Optimierung aus?

[Benmik]

Zitat von hoika:

...ist die Optimierung aus?

Verflucht, mache ich sonst auch immer, diesmal vergessen. Wird beim nächsten Auftreten probiert!

[hoika]

Hallo,
teste das doch mit Deinem Testpogramm.