Файловые типы данных

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Grids;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    Panel1: TPanel;
    Button1: TButton;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button2: TButton;
    Label4: TLabel;
    Memo1: TMemo;
    Label5: TLabel;
    Memo2: TMemo;
    Label6: TLabel;
    Edit4: TEdit;
    Button3: TButton;
    Label7: TLabel;
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const
qtextfile='file.txt';
qintfile='file.dat';
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
with stringgrid1 do
begin
colwidths[0]:=100;
colwidths[1]:=100;
cells[0,0]:='До обработки';
cells[1,0]:='После обработки';
end;
Button2Click(Sender);
Button3Click(Sender);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
i,n,r:integer;
f:string;
h:file of integer;
begin
try
n:=strtoint(edit4.Text);
except
showmessage('Количество чисел N должно быть целым числом!');
exit;
end;
if (n<1)or(n>100) then
begin
showmessage('Количество чисел N должно быть от 1 до 100!');
exit;
end;
f:=extractfilepath(application.ExeName)+qintfile;
assignfile(h,f);
rewrite(h);
randomize;
for i:=1 to n do
begin
r:=random(41)-20;
write(h,r);
end;
closefile(h);
with stringgrid1 do
begin
for i:=1 to rowcount-1 do
rows[i].Clear;
RowCount:=2;
reset(h);
while not eof(h) do
begin
read(h,r);
i:=rowcount;
rowcount:=i+1;
cells[0,i-1]:=inttostr(r);
end;
rowcount:=rowcount-1;
closefile(h);
rewrite(h);
for i:=1 to rowcount-1 do
begin
r:=strtoint(cells[0,i]);
if (r>=-10)and(r<=10) then
r:=-r;
write(h,r);
end;
closefile(h);
reset(h);
i:=1;
while not eof(h) do
begin
read(h,r);
if i>rowcount-1 then
rowcount:=i+1;
cells[1,i]:=inttostr(r);
i:=i+1;
end;
closefile(h);
end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
i,n,r:integer;
f:string;
begin
try
n:=strtoint(edit1.Text);
except
showmessage('Количество строк N должно быть целым числом!');
exit;
end;
if (n<1)or(n>100) then
begin
showmessage('Количество строк N должно быть от 1 до 100!');
exit;
end;
try
r:=strtoint(edit2.Text);
except
showmessage('Номер заменяемой строки должен быть целым числом!');
exit;
end;
if (r<1)or(r>n) then
begin
showmessage('Номер заменяемой строки должен быть от 1 до '+inttostr(n)+'!');
exit;
end;
memo1.Clear;
for i:=1 to n do
memo1.Lines.add('Строка '+inttostr(i));
f:=extractfilepath(application.ExeName)+qtextfile;
memo1.Lines.SaveToFile(f);
memo2.Lines.LoadFromFile(f);
memo2.Lines[r-1]:=edit3.Text;
memo2.Lines.SaveToFile(f);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
 
end.