sStream := TFileStream.Create(SplitFileName, fmCreate or fmShareExclusive);
try
if fs.Size - fs.Position < SizeofFiles then
SizeofFiles := fs.Size - fs.Position;
sStream.CopyFrom(fs, SizeofFiles);
finally
sStream.Free;
end;
end;
finally
fs.Free;
end;
end;
Ma question est
comment pourrais je définir la variable SizeofFIles comme étant un real
et non plus un integer, paske j'ai changé le haut de la fonction :