10.05.2014, 11:20
|
|
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Цитата:
Сообщение от vankai14
...а в коде я этого не вижу(((
|
Код:
...
var
f : file of byte;
buf: array[1..8] of byte;
i,b: integer;
begin
AssignFile(f,'File Name');
try
Reset(f);
Seek(f,1);
repeat
BlockRead(f, buf, SizeOf(buf), i);
for b:= 1 to i do
begin
// вот здесь делайте со считанными байтами что хотите
buf[b]:= ...
end;
until (i = 0);
finally
CloseFile(f);
end;
end;
...
|