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

unit Unit1;

interface

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

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

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


implementation

{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);
var
f : integer;
length : longint;
h : integer;
i,j : integer;
s : string;
begin
f:=FileCreate('c:\delphi\motor\pro1\basex.dat');
for i:=1 to 8 do
begin
FileWrite(f,i,2);
for j:=1 to Groupes[i] do
begin
s:='c:\delphi\motor\test1\q'+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;

for j:=1 to Answers[i] do
begin
s:='c:\delphi\motor\test1\a'+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.