FullCollection / Семинары / NNN / all / nnn / Motor / TEXTNEW / PRO1 / DOP

f : integer;
nomer : integer;
length : integer;
h1 : integer;
begin
f:=FileOpen('base.dat',0);
FileRead(f,nomer,2);
FileRead(f,length,4);
FileRead(f,Buf,length);
h1:=FileCreate('tempor.rtf');
FileWrite(h1,Buf,length);
FileClose(h1);
WPrichText2.LoadFromFile('tempor.rtf');
WPrichText2.Refresh;
FileRead(f,nomer,2);
FileRead(f,length,4);
FileRead(f,Buf,length);
h1:=FileCreate('tempor.rtf');
FileWrite(h1,Buf,length);
FileClose(h1);
WPrichText1.LoadFromFile('tempor.rtf');
WPrichText1.Refresh;
FileClose(f);
DeleteFile('tempor.rtf');
end;