UC知道pascal 自定义单元
来源：百度知道 编辑：UC知道 时间：2024/05/26 12:19:50
下面这个单元哪里错了，请教，高分
编译错误信息：
error:illegal unit name:paixu
哪位大哥帮忙改一下，高分悬赏
{
$Id: gplunit.pt,v 1.2 2002/09/07 15:40:47 peter Exp 2009/09/04 12:44:28 peter Exp $
This file is part of paixu
Copyright (c) 2009 by shizhouxing office
shizhouxing
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit paixu;
interface
type
math1=packed array[1..3000]of longint;
procedure swap(var a,b:longint);
procedure qsort(var a:math1;l,r:longint);
procedure xsort(var a:math1;n:longint);
procedure xsortsmall(var a:math1;n:longint);
proced
编译错误信息：
error:illegal unit name:paixu
哪位大哥帮忙改一下，高分悬赏
{
$Id: gplunit.pt,v 1.2 2002/09/07 15:40:47 peter Exp 2009/09/04 12:44:28 peter Exp $
This file is part of paixu
Copyright (c) 2009 by shizhouxing office
shizhouxing
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit paixu;
interface
type
math1=packed array[1..3000]of longint;
procedure swap(var a,b:longint);
procedure qsort(var a:math1;l,r:longint);
procedure xsort(var a:math1;n:longint);
procedure xsortsmall(var a:math1;n:longint);
proced
你的单元我没怎么看
不过没有语法错误的话
就放在根目录复制到bin文件夹下
注意后缀.ppu
然后在程序的声明部分写uses 你的单元
单元是不能直接运行或编译的