// 这个是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进去了？怎么还会报错？
[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！
