Текущий архив: 2008.09.21;
Скачать: CL | DM;

Вниз

Файлы   Найти похожие ветки 

← →
REX   (2008-08-09 18:12) [0]

Как создать нетиризированный файл и задть ему размер ???

---

← →
Palladin ©   (2008-08-09 18:18) [1]

Procedure CreateFileWithSize(Const p_strFileName:String;p_nSize:Cardinal);
Var
 f:File;
 b:Pointer;
Begin
 AssignFile(f,p_strFileName); Rewrite(f,1);
 Try
  GetMem(b,p_nSize);
  Try
   ZeroMemory(b,p_nSize);
   BlockWrite(f,b^,p_nSize);
  Finally
   FreeMem(b);
  End;
 Finally
  CloseFile(f);
 End;
End;

---

← →
{RASkov} ©   (2008-08-09 18:19) [2]

> [0] REX   (09.08.08 18:12)
> задть ему размер

Зачем?
Будешь записывать данные в файл, а размер сам задастся...

---

← →
Palladin ©   (2008-08-09 18:19) [3]

А знака вопроса достаточно и одного.

---

← →
{RASkov} ©   (2008-08-09 18:26) [4]

procedure CreateFileWithSize(Const p_strFileName:String; p_nSize:Cardinal);
begin
 with TFileStream.Create(p_strFileName, fmCreate) do try
  Size:=p_nSize;
 finally
  Free;
 end;
end;

---

← →
Palladin ©   (2008-08-09 18:36) [5]

еще круче :)

---

Страницы: 1 вся ветка

Текущий архив: 2008.09.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c