1fccb1e103
Исправлен ToString в write. Убраны параметры по умолчанию из метода расширения Print (пока это вызывает падение)
40 lines
622 B
ObjectPascal
40 lines
622 B
ObjectPascal
var i: integer;
|
|
const ccc = 2+3+4;
|
|
|
|
procedure p(jjj: integer; var kkk: integer);
|
|
var i: integer;
|
|
const ccc: integer = 2;
|
|
type bcd = integer;
|
|
begin
|
|
var k: integer;
|
|
// yield x111.x222+fff;
|
|
// yield aaa[i]^.d+(bbb.c*nnn^)*fff(4);
|
|
end;
|
|
|
|
function f(var i,j,k: integer): integer;
|
|
var i: integer;
|
|
begin
|
|
var k: integer;
|
|
k^[2].t[3]^ := a + 1 * 2*(3+k^[2].t[3]^);
|
|
end;
|
|
|
|
type C = class
|
|
ck: integer;
|
|
procedure x1;
|
|
var cxk: integer;
|
|
begin
|
|
var cik: integer;
|
|
|
|
end;
|
|
function f1(): integer;
|
|
var cfk: integer;
|
|
begin
|
|
var cfik: integer;
|
|
write(1+2+3+4,5*6);
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
var ii: integer;
|
|
|
|
end. |