Hallo,
Wieso stürzt mir das folgende Programm ab? Wenn ich es starte muß ich die DOSBOX bzw. die VM neu starten weil das Ding nicht mehr reagiert, ich seh aber den Fehler nicht.
lg, Markus
Code
program test;
uses crt;
type PROCTYPE = procedure (i : integer);
PROCPTRTYPE = ^PROCTYPE;
var p : PROCPTRTYPE;
procedure test1 (i : integer);
begin
writeln('test1');
end;
procedure test2 (j : integer);
begin
writeln('test2');
end;
procedure test3 (k : integer);
begin
writeln('test3');
end;
begin
clrscr;
p:=@test1;
p^(200);
readln;
end.
Alles anzeigen