with-anweisung. zugriff auf oberhalt des object liegende var

[Net7]

Soweit mir bekannt, ist das nicht möglich eine locale variable innerhalb einer with-Anweisung aufzurufen.

Du mußt wohl oder übel die Werte der localen Variablen einer globalen Variablen zuweisen.

Delphi-Quellcode:

 unit Unitbla;

...

type Tbla = record
      Zahl: Integer;
      end;
  
  var Daten: TBla;
      Globzahl:integer;

procedure blabla;
var
  localzahl:integer;
begin
    
     Globzahl:=localzahl;

     with Daten do
     begin
          zahl:=unitbla.Globalzahl;
     end;

end;

Mfg Net7