Ich habe folgenden Code:
...
var F: File of text
Procedure testfile;
begin
f16_changedir('');
if not f16_pathexist('testdir') then
f16_createdir('', 'testdir, 0, 0);
endif;
f16_changedir('testdir);
writeln(serout, f16_getcurdir);
f16_fileassign(F, 'testdir', 'test.txt');
f16_filerewrite(F, [], 0, 0);
writeln(F, 'Hallo');
F16_Fileclose(f);
end;
Biem writeln kommt Compiler Fehler:
Undefined Identifier F
Warum erkennt er F nicht an?
Louis
Code
...
var F: File of text
Procedure testfile;
begin
f16_changedir('');
if not f16_pathexist('testdir') then
f16_createdir('', 'testdir, 0, 0);
endif;
f16_changedir('testdir);
writeln(serout, f16_getcurdir);
f16_fileassign(F, 'testdir', 'test.txt');
f16_filerewrite(F, [], 0, 0);
writeln(F, 'Hallo');
F16_Fileclose(f);
end;
Biem writeln kommt Compiler Fehler:
Undefined Identifier F
Warum erkennt er F nicht an?
Louis