Konsolenanwendung: prozedur / funktion

[sirius]

Klar kann man das.

Delphi-Quellcode:

program Konsolenanwendung;

uses windows,...;

{$AppType Console}

function test:integer;
begin
  result:=5;
end;



{main}
begin
  writeln(test);
  readln;
end.

Aber besser ist es zusätzliche Units zu verwenden.