|
@@ -42,7 +42,7 @@ type
|
|
protected
|
|
protected
|
|
FFileName: String;
|
|
FFileName: String;
|
|
procedure Sync(AWritten: Int64);
|
|
procedure Sync(AWritten: Int64);
|
|
- procedure SetSize64(const NewSize: Int64); override;
|
|
|
|
|
|
+ procedure SetCapacity(const NewCapacity: Int64);
|
|
public
|
|
public
|
|
constructor Create(const AFileName: String; Mode: LongWord); virtual; overload;
|
|
constructor Create(const AFileName: String; Mode: LongWord); virtual; overload;
|
|
destructor Destroy; override;
|
|
destructor Destroy; override;
|
|
@@ -51,6 +51,7 @@ type
|
|
function Write(const Buffer; Count: LongInt): LongInt; override;
|
|
function Write(const Buffer; Count: LongInt): LongInt; override;
|
|
property DirtyLimit: Int64 read FDirtyLimit write FDirtyLimit;
|
|
property DirtyLimit: Int64 read FDirtyLimit write FDirtyLimit;
|
|
property AutoSync: Boolean read FAutoSync write SetAutoSync;
|
|
property AutoSync: Boolean read FAutoSync write SetAutoSync;
|
|
|
|
+ property Capacity: Int64 write SetCapacity;
|
|
property FileName: String read FFileName;
|
|
property FileName: String read FFileName;
|
|
end;
|
|
end;
|
|
|
|
|
|
@@ -156,9 +157,9 @@ begin
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
-procedure TFileStreamEx.SetSize64(const NewSize: Int64);
|
|
|
|
|
|
+procedure TFileStreamEx.SetCapacity(const NewCapacity: Int64);
|
|
begin
|
|
begin
|
|
- FileAllocate(Handle, NewSize);
|
|
|
|
|
|
+ FileAllocate(Handle, NewCapacity);
|
|
end;
|
|
end;
|
|
|
|
|
|
constructor TFileStreamEx.Create(const AFileName: String; Mode: LongWord);
|
|
constructor TFileStreamEx.Create(const AFileName: String; Mode: LongWord);
|