FullCollection / Семинары / NNN / all / nnn / Motor / TEXTNEW / PRO / MAKER

unit Unit1;

interface

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Buf : Array[1..4000] of Byte;
const
Answers : array[1..20] of integer =
(3,3,3,3,3,3,4,5,5,4,4,4,4,3,3,4,4,4,4,3);



implementation

{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);
var
f : integer;
NofA : integer;
TrueAnswer : integer;
length : longint;
h : integer;
ans : TextFile;
i,j : integer;
s : string;
begin
f:=FileCreate('base.dat');
for i:=1 to 20 do
begin
s:='c:\delphi\motor\test\tq'+IntToStr(i)+'.rtf';
h:=FileOpen(s,0);
length:=FileRead(h,Buf,3000);
FileWrite(f,i,2);
FileWrite(f,length,4);
FileWrite(f,Buf,length);
FileClose(h);

for j:=1 to Answers[i] do
begin
s:='c:\delphi\motor\test\ta'+IntToStr(i)+IntToStr(j)+'.rtf';
h:=FileOpen(s,0);
length:=FileRead(h,Buf,3000);
FileWrite(f,length,4);
FileWrite(f,Buf,length);
FileClose(h);
end;
end;
FileClose(f);
Close;
end;

end.