-
-
未解决
[求助]Delphi程序的编译问题
-
发表于:
2020-4-8 12:54
1968
-
// 这个是split.pas文件
unit split;
interface
uses
Windows, Messages, SysUtils, Variants, Classes;
implementation
function SplitFile(const FileName: string; Size: Cardinal): Boolean;
var
fStream: TFileStream; {原始文件}
toStream: TMemoryStream; {分文件}
p,i: Integer; {p 记录当前指针位置; i 记录这是第几个分的文件}
begin
......
Result := False;
end;
end.
// 这个是splitf.pas
{$APPTYPE CONSOLE}
Uses
SysUtils, Classes ,Split,Variants ;
var
infile:string = 'Asahi.wav';
begin
// infile
SplitFile(infile,10010241024); // 分割成100MB的大小
end.
编译split.pas通过了，编译splitf.pas提示SplitFile不认识，
我不是已经把库uses进去了？怎么还会报错？
[课程]FART 脱壳王！加量不加价！FART作者讲授！
