【发布时间】:2024-01-12 08:10:01
【问题描述】:
我刚开始学习 Free Pascal,我编写了这个相当基本的程序来练习数组。我收到两个错误:
Strings.lpr(32,1) 错误:未定义符号:THREADVARLIST_STRINGS
Strings.lpr(32,1) 错误:未定义符号:STRINGS_STRPAS$PCHAR$$SHORTSTRING
Strings.lpr(32,1) 致命:编译模块时出现 2 个错误,正在停止
代码如下:
program Strings;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils
{ you can add units after this };
{$R *.res}
var
Marks : array [1..10] of Integer;
index : Integer;
begin
for index:= 0 to 10 do
begin
write('Enter mark of student ',index,': ');
readln(marks[index]);
end;
for index := 0 to 10 do
begin
write('Student No. ',index,' Marks: ',marks[index],' ');
if marks[index]>65 then writeln('PASS')
else writeln('FAIL');
end;
writeln('Press any key to continue.');
readln;
end. {line 32}
【问题讨论】:
-
嗯,我希望代码看起来更丰富多彩。
-
显然你需要为此添加delphi标签。
-
是的,@Marco,但将问题标记为“delphi”表明它实际上与 Delphi 有关,但这里并非如此。不要仅仅为了语法高亮而标记问题。在问题中使用the language-specification syntax。 Prettify 荧光笔仍然不支持特定于 Pascal 或 Delphi 的高亮规则,所以我们只能使用通用规则。
标签: arrays pascal undefined-symbol