n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/with_test.pas

19 строк305 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

type rec=record
        x:string:='rex.x';
        y:=10;
     end;
cl=class
        xc:string:='cl.xc';
        yc:=11;
     end;
var i:=1;
    j:=2;
    s:string;
    r:rec;
begin
  with i,j do
    writeln(ToString);
  with r,new cl,j do
    with i do 
      writeln(x,y,' ',xc,yc,' ',tostring);
end.