| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Файлы [D7, XP]

REX ©   (2008-08-09 18:12:00) 

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

---

Palladin   (2008-08-09 18:36:00) [1]

еще круче :)

---

{RASkov}   (2008-08-09 18:26:00) [2]

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;

---

{RASkov}   (2008-08-09 18:19:00) [3]

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

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

---

Palladin   (2008-08-09 18:19:00) [4]

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

---

Palladin   (2008-08-09 18:18:00) [5]

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;

---

Наверх