[Sharky]

Привет. Помогите мне сделать такое: мне нужно взять какойнибурь маленький кусочек файла и что бы этот кусочек использовался постоянно. За любые подсказки большое спасибо.

[The Shadow]

Код:

var
s: Byte;
f: file;
begin
AssignFile(f, 'C:\file.txt');
Reset(f, 1);
BlockRead(f, s, 1);
CloseFile(f);
end;

В переменной s будет постоянно храниться первый байт файла {в этом примере} пока сам не изменишь ее.

[M.A.D.M.A.N.]

var etalon:tstream;
.............
var a:tfilestream;
begin
a:=tfilestream.create('File.txt');
a.seek(x,soFromDeginning);//Где х-откуда
etalon.copyfrom(a,a.у);//Где у-до куда
a.free;
end;

[M.A.D.M.A.N.]

Не забудь сделать следующее: etalon:=TMemoryStream.Create;