No it's in objfpc mode
Code:
program Project1;
{$mode objfpc}{$H+}
Const
MyConst = 20;
Procedure MyRealFunc(I : Integer = MyConst);
begin
Writeln('Function received : ',I);
end;
begin
MyRealFunc;
end.
But like said i don't know what i'm doing wrong, because the app doesn't run even if i do this:
Code:
program Project1;
{$mode objfpc}{$H+}
Procedure MyRealFunc;
var i: integer;
begin
i:=1;
Writeln('Function received : ',i);
end;
begin
MyRealFunc;
end.
Compiler messages are real though, wrong changes in code do result in errors.
edit: AH! Now they run. I disabled -WG from project options so that it doesn't try to make it Win32 GUI application. From command prompt i get:
Code:
Function received : 20
Bookmarks