// 这个是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进去了?怎么还会报错?
[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课