Искусственное увеличение размера файла

[iLnes]

Сразу перейду к проблеме:
Есть вот такой код:

function PumpExe ( Value : Int64; FileName : String) : boolean;
var
Temp: TFileStream;
begin
try
   Temp := TFileStream.Create(FileName,fmOpenWrite);
   Temp.Size := Temp.Size + Value;
   Temp.Free;
   Result:=True;
except
   Result:=False;
end;
end;

до безумия глупый, но рабочий. Мне надо сделать так, чтобы можно было искуственно увеличивать размер файла на n-ое значение из Edit1. Проблема не в том, что я не могу это реализовать, а втом, что если я хочу увеличить на 100 и более кб то появляется погрешность. Бывает 5-10 кб, бывает и по 100. А мне надо как можно более точное увеличение. А так же, чтобы файл не заполнялся на просто нулями, а разными буквами (рандомные + заглавные и маленькие.) Вот в чем проблема. Заранее большое спасибо.

[Аватар]

Погрешность будет только от ошибки программиста или не знания того, сколько байтов в килобайте. Заполнение символами - метоты Seek, Write, WriteBuffer. псевдослучайность - Random

[iLnes]

Сообщение от Аватар

Погрешность будет только от ошибки программиста или не знания того, сколько байтов в килобайте. Заполнение символами - метоты Seek, Write, WriteBuffer. псевдослучайность - Random

Ну так может поможете, а не просто словами кидаться. Проверьте сами, как работает код. И увидите погрешность.

[Человек_Борща]

 Temp.Size := Temp.Size + Value;

Это вам ничего не даст.

в Size это read свойство. В него писать нельзя. Да и смысла не имеет.
Чтобы ФИЗИЧЕСКИ увеличить размер, надо в конец файла запись заданное кол-во нулей.

[Пепел Феникса]

в Size это read свойство. В него писать нельзя.

и давно это read свойство?

procedure THandleStream.SetSize(const NewSize: Int64);
begin
  Seek(NewSize, soBeginning);
{$IFDEF MSWINDOWS}
  Win32Check(SetEndOfFile(FHandle));
{$ELSE}
  if ftruncate(FHandle, Position) = -1 then
    raise EStreamError(sStreamSetSize);
{$ENDIF}
end;

Да и смысла не имеет.

имеет, сразу зарезервировать место под данные.

ТС, про погрешность ответили, а про данные цитатка с MSDN:

Сообщение от MSDN

If the file is extended, the contents of the file between the old end of the file and the new end of the file are not defined.

правда обычно он все равно нулями будет(немного безопасности), так что руками тогда.

[iLnes]

Как ни крути, исправить эту погрешность не могу.
Вот код весь:

unit untPumper;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, sSpeedButton, StdCtrls, sEdit, sDialogs, ComCtrls,
  sStatusBar, sComboBox, sLabel;

type
  TfrmPumper = class(TForm)
    FileString: TsEdit;
    PumpSize: TsEdit;
    PumperFile: TsSpeedButton;
    OpenFile: TsSpeedButton;
    StatusBar: TsStatusBar;
    PumpSet: TsComboBox;
    sLabelFX1: TsLabelFX;
    sStickyLabel1: TsStickyLabel;
    sStickyLabel2: TsStickyLabel;
    sLabelFX2: TsLabelFX;
    procedure OpenFileClick(Sender: TObject);
    procedure PumperFileClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPumper: TfrmPumper;

implementation

{$R *.dfm}

function PumpExe ( Value : Int64; FileName : String) : boolean;
var
Temp: TFileStream;
begin
try
   Temp := TFileStream.Create(FileName,fmOpenWrite);
   Temp.Size := Temp.Size + Value;
   Temp.Free;
   Result:=True;
except
   Result:=False;
end;
end;


procedure TfrmPumper.PumperFileClick(Sender: TObject);
begin
  if PumpSet.ItemIndex = 0 then
  begin
    PumpExe(StrToInt64(PumpSize.Text)*1000,FileString.Text);
  end;

  if PumpSet.ItemIndex = 1 then
  begin
    PumpExe(StrToInt64(PumpSize.Text)*1000000,FileString.Text);
  end;

  if PumpSet.ItemIndex = 2 then
  begin
    PumpExe(StrToInt64(PumpSize.Text)*1000000000,FileString.Text);
  end;

  Sleep(1500);
  StatusBar.Panels[0].Text:= 'Готово :)';
    MessageBox(
    Self.Handle
    , PChar('Файл успешно увеличен!!!')
    , PChar('1111')
    , MB_OK + MB_ICONINFORMATION + MB_APPLMODAL
  );
end;
end.

[Аватар]

Умножение на 1000 - это похоже попытка килобайты в байты перевести? Умножайте на 1024. Аналогично вместо 1000000 - 1024*1024 и 1000000000 - 1024*1024*1024

[Lime]

оффтоп:
http://cs11035.vkontakte.ru/u226973/...x_a669b3ea.jpg

[3D Hunter]

procedure TForm1.Button1Click(Sender: TObject);
const
  mb:Cardinal=1048576;
var
  hf:THandle;
begin
  hf := CreateFileA('d:\file.my', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  SetFilePointer(hf, 20*mb, nil, 0);//выделение 20 мб места для файла
  SetEndOfFile(hf);
  CloseHandle(hf);
end;