Создать файл, содержащий сведения о машинах на складе.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
 type
    TPerson = record
    Marc  : string;
    God  : string;
    color : string;
    price  : string;
    data  : string;
 
end;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Button6: TButton;
    procedure Button5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
     rCount : integer;
     aPerson :  array[0..9] of TPerson;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  sl1, sl2, sl3 : TStringList;
  f:textfile;
  r,g:integer;
  s:string;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 rCount:=1;
 sl1 := TStringList.Create;
 sl2 := TStringList.Create;
 sl3 := TStringList.Create;
 Button6.Enabled:=true;
 Button2.Enabled:=false;
 Button3.Enabled:=false;
 Button4.Enabled:=false;
 Button1.Enabled:=false;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
 Button2.Enabled:=true;
 Button3.Enabled:=true;
 Button4.Enabled:=true;
 Button1.Enabled:=true;
 AssignFile(f,'c:\18.txt');
 Rewrite(f);
 Writeln(f,'');
 CloseFile(f);
 Showmessage('<< Создан файл >>')
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
var s: string;
begin
  aPerson[rCount-1].Marc := Edit1.Text;
  aPerson[rCount-1].God := Edit2.Text;
  aPerson[rCount-1].color := Edit3.Text;
  aPerson[rCount-1].price := Edit4.Text;
  aPerson[rCount-1].data := Edit5.Text;
  s:= aPerson[rCount-1].Marc + ' ' + aPerson[rCount-1].God + ' ' +
      aPerson[rCount-1].color + ' ' + aPerson[rCount-1].price+ ' ' +
      aPerson[rCount-1].data;
  StringGrid1.Rows[rCount].DelimitedText:=s;
 // Label1.Caption := 'Добавлено ' + IntToStr(rCount) + ' записей';
 
   //s:=Edit1.Text+' '+Edit2.Text+' '+Edit3.Text+' '+Edit4.Text+' '+Edit5.Text;
  append(f);
  writeln(f,inttostr(r),'. ',s);
  closefile(f);
  r:=r+1;
  showmessage( inttostr(r)+'-я запись добавлена ');
 
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  Edit5.Text := '';
  Edit1.SetFocus;
  if rCount < 99
   then inc(rCount);
end;
end.