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

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

BlockRead [D7]

Block ©   (2006-10-16 21:31:00) 

Как эти функции юзать, приведите плиз конкретный пример

---

Block   (2006-10-17 11:57:00) [1]

Джо, пасиб, всё ясно

---

Anatoly Podgoretsky   (2006-10-17 09:47:00) [2]

> а объект TFileStream, являющийся удобной оберткой над этими
> фукциями.

Это ни в коей мере не является оберткой, не выдумывай.

---

Джо   (2006-10-17 03:35:00) [3]

> [3] Loginov Dmitry ©   (16.10.06 23:05)
> Можно юзать не их, а объект TFileStream, являющийся удобной
> оберткой над этими фукциями.

Вообще-то, он является оберткой над WriteFile/ReadFile из Win32 API.


> Block   (16.10.06 21:31)
> Как эти функции юзать, приведите плиз конкретный пример


var
 F: File;
 S: string;
 N: Integer;
 Bytes: array [0..2] of Byte;
begin
 S := 'ABCDEFG';
 N := 123;
 Bytes[0] := 1;
 Bytes[1] := 2;
 Bytes[2] := 3;

 AssignFile (F,'d:\myfile.dat');
 Rewrite (F,1);
 try

   // Например, так
   BlockWrite (F,S[1],Length(S));

   // Или так
   BlockWrite (F,N,SizeOf(N));

   // Или, скажем, так
   BlockWrite (F,Bytes[0],Length(Bytes));

 finally
   CloseFile (F);
 end;
end;


---

Loginov Dmitry   (2006-10-16 23:05:00) [4]

Block   (16.10.06 21:31)
Как эти функции юзать

Можно юзать не их, а объект TFileStream, являющийся удобной оберткой над этими фукциями.

---

wl   (2006-10-16 21:39:00) [5]

в помощи есть

---

Ketmar   (2006-10-16 21:38:00) [6]

BlockRead, F1, тычем в example. ы?

---

Наверх