Hi all.
The following:
TChopParam = Record
Filename : String;
Container : String;
Size : Integer;
{ Options }
SavePath : Boolean;
End;
To use I did the following:
function TAddForm.FileSizeOK(FileName: string): boolean;
var
f: file of Byte;
s: longint;
chop: Record
Filename : String;
Container : String;
Size : Integer;
{ Options }
SavePath : Boolean;
End;
begin
result := true;
AssignFile(f, FileName);
Reset(f);
s := filesize(f);
if (s > 2000000000) or (s < 0) then
begin
MessageDlg('File:' + FileName + ' is too large.' , mtWarning, [mbOK], 0);
result := false;
//FROM HERE
chop.Filename:=filename;
chop.Size:=1000000000; // 1 Gig max size
chop.Container:='chopper.spt';
filechopper1.Chop(chop);
//TO HERE
end;
CloseFile(f);
end;
And because I am code rusty, I am getting an 'incompatible type, tchopparam and
record'
How to assign the values correctly?????
Tks,
Al+
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
