Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.29;
Скачать: CL | DM;

Вниз

BlockRead   Найти похожие ветки 

 
Block   (2006-10-16 21:31) [0]

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


 
Ketmar ©   (2006-10-16 21:38) [1]

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


 
wl ©   (2006-10-16 21:39) [2]

в помощи есть


 
Loginov Dmitry ©   (2006-10-16 23:05) [3]

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


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


 
Джо ©   (2006-10-17 03:35) [4]

> [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;


 
Anatoly Podgoretsky ©   (2006-10-17 09:47) [5]


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

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


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

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



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

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

Наверх




Память: 0.47 MB
Время: 0.029 c
6-1149939915
Dstr
2006-06-10 15:45
2006.10.29
IDUdp


2-1160575621
Juice
2006-10-11 18:07
2006.10.29
FloatToStr


15-1159447965
Ученик чародея.
2006-09-28 16:52
2006.10.29
В наших вузах программистов учат всякой ерунде


2-1160667272
Sam Stone
2006-10-12 19:34
2006.10.29
БД склада


3-1157366093
tytus
2006-09-04 14:34
2006.10.29
помогите с подключением