Ивт-20 / САОД и др / ОЗО_2010-САОД_1 / Демо_Проекты / Данные / Unit6

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, XPMan, Grids, ExtCtrls;

type
Person=record     //запись
  Name:string[20];
  Age:integer;
  Sex:string[10];
  end;

type
  t_Tuning=(CD,Alarm,Condition);  //Перечисляемый тип
  tName=(BlueBird, SkyLite, Pajero, Carib);
   tMotor=record    //запись
    Name:tName;
    Price:Integer;
    Tuning:Set of t_Tuning; //множество
   end;

type
  familii=record
    name:string[30];
  end;

type
TKind = (GOLD, SILVER, BRONZE);//тип медали //перечисляемый тип
// запись файла
TMedal=record   //запись
person: string[40]; // спортсмен
country: string[20]; // страна
sport: string[20]; // вид спорта
kind: TKind; // медаль
end;


type
  TForm6 = class(TForm)
    XPManifest1: TXPManifest;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    PageControl6: TPageControl;
    TabSheet14: TTabSheet;
    GroupBox9: TGroupBox;
    Button17: TButton;
    ListBox21: TListBox;
    GroupBox10: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    ListBox22: TListBox;
    ListBox23: TListBox;
    ListBox24: TListBox;
    Button20: TButton;
    ListBox25: TListBox;
    Button2: TButton;
    GroupBox1: TGroupBox;
    ListBox1: TListBox;
    Button5: TButton;
    TabSheet15: TTabSheet;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    Button1: TButton;
    TabSheet5: TTabSheet;
    Label12: TLabel;
    GroupBox6: TGroupBox;
    Button8: TButton;
    Edit5: TEdit;
    Button10: TButton;
    Button11: TButton;
    Edit6: TEdit;
    Button12: TButton;
    ListBox2: TListBox;
    Button9: TButton;
    Edit4: TEdit;
    GroupBox7: TGroupBox;
    Button13: TButton;
    Edit7: TEdit;
    Button15: TButton;
    GroupBox8: TGroupBox;
    Edit8: TEdit;
    Button16: TButton;
    Button18: TButton;
    Memo1: TMemo;
    Button19: TButton;
    Memo2: TMemo;
    TabSheet3: TTabSheet;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    StringGrid4: TStringGrid;
    Button6: TButton;
    Label13: TLabel;
    Label14: TLabel;
    Label1: TLabel;
    Label15: TLabel;
    Button7: TButton;
    GroupBox11: TGroupBox;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Edit9: TEdit;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    RadioGroup1: TRadioGroup;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    Button14: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Uporyadochivanie(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Edit9MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  str=string[30];
var
  Form6: TForm6;
  MASSIV:array[1..50] of real;
  y,i,l,j,k:integer;
  Mat1,Mat2,Mat3:array[1..4,1..4] of Real;
  XXX:Person;
  Motor1:tMotor;
  Motor2:tMotor;
  Price1:set of #48..#57;
  ListMotor:array[1..10] of tMotor;
  rand:integer;
  turn:string;
  F2:str; //файловая переменная
  NM:string[30];
  F1:file of Str;//название файла
  FF:Text;
  Files:string[30];//Путь к файлу
  WinFile:string[30];//
  Text:string[30];//
  Y1:array[1..10] of string;

  H:integer;
  medal:Tmedal;
implementation

uses Unit1, Unit5;

{$R *.dfm}

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Show;
end;

//-------Заполнение вещественного массива-------
//-------случайным образом (RANDOM)-------------
//-------и его вывод в ListBox----------------
//-------его сортировко-----------------------
//-------на положительные и отрицательные-----
procedure TForm6.Button2Click(Sender: TObject);
var
max,min:real;
g,p:integer;
Mas1,Mas2:string;
begin
randomize();
ListBox22.Clear;
ListBox23.Clear;
ListBox24.Clear;
for i:=1 to 50 do
begin
  MASSIV[i]:=Random(61)-30;
  ListBox22.Items.Add(FloatToStr(MASSIV[i]));
  if (MAssiv[i]>=0) then
  begin
    ListBox23.Items.Add(FloatToStr(massiv[i]))
  end
  else ListBox24.Items.Add(floattostr(massiv[i]));
  ListBox25.Clear;

  //MAX, MIN
max:=massiv[1];
min:=massiv[1];
g:=1;
p:=1;
 for J:=1 to 50 do
   begin
     if (Min>Massiv[j]) then
      begin
        Min:=massiv[j];
        g:=j;
      end;
   end;
   Mas1:='Max '+ FloatToStr(max)+'   № '+IntToStr(g);
     Label3.Caption:=Mas1;
  for j:=1 to 50 do
    begin
      if(Max<massiv[j]) then
        begin
          Max:=massiv[j];
          P:=j;
        end;
    end;
  Mas2:='Min '+ FloatToStr(min)+'   № '+IntToStr(p);
  Label4.Caption:=Mas2;
end;

end;
Procedure TForm6.Uporyadochivanie(Sender: TObject);
var
j,g:integer;
Min:Real;
begin
ListBox25.Clear;
for j:=1 to 49 do
  begin
    min:=MASSIV[j];
    g:=j;
    for i:=j to 50 do
      if (Min>MASSIV[i]) then
        begin
          min:=MASSIV[i];
          g:=i;
        end;
      MASSIV[g]:=MASSIV[j];
      MASSIV[j]:=min;
  end;
  for i:=1 to 50 do
    begin
    ListBox25.Items.Add(FloatToStr(MASSIV[i]));
    end;
end;

procedure TForm6.Button20Click(Sender: TObject);
begin
Uporyadochivanie(Sender);
end;

procedure TForm6.Button4Click(Sender: TObject);
var
N:integer;
begin
N:=StrToInt(InputBox('s','d',''));
for i:=n to 9 do
begin
massiv[n]:=massiv[n+1];
end;
ListBox1.Clear;
for i:=1 to 9 do
begin
  ListBox1.Items.Add(FloatToStr(massiv[i]));
end;

end;

procedure TForm6.Button5Click(Sender: TObject);
var
Str:string;
begin
ListBox1.Clear;
Y1[1]:='один';
Y1[2]:='два';
Y1[3]:='три';
Y1[4]:='четыре';
Y1[5]:='пять';
Y1[6]:='шесть';
Y1[7]:='семь';
Y1[8]:='восемь';
Y1[9]:='девять';
Y1[10]:='десять';
for i:=1 to 10 do
begin
  ListBox1.Items.Add(Y1[i]);
end;
end;

//---------Вывод кодов ASCII--------------------
procedure TForm6.Button17Click(Sender: TObject);
var
C:char;
n:integer;
i:Byte;
  begin
  ListBox21.Clear;
  C:=High(C);
  n:=ord(C);
  for i:=32 to n do
    begin
      C:=Char(i);
      ListBox21.Items.Add(' '+C+' ');
    end;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
Files:=Edit4.Text+'\'+Edit5.Text;
WinFile:=Edit4.Text+'\'+Edit7.Text;
Text:=Edit4.Text+'\'+Edit8.Text+'.txt';
for i:=0 to 4 do
begin
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid1.Cells[i,0]:=IntToStr(i);
StringGrid2.Cells[0,i]:=IntToStr(i);
StringGrid2.Cells[i,0]:=IntToStr(i);
StringGrid3.Cells[0,i]:=IntToStr(i);
StringGrid3.Cells[i,0]:=IntToStr(i);
end;
begin
StringGrid4.Cells[0,0]:='№';
StringGrid4.Cells[0,1]:='Имя';
StringGrid4.Cells[0,2]:='Возраст';
StringGrid4.Cells[0,3]:='Пол';
end;
for i:=1 to 6 do
begin
StringGrid4.Cells[0,i]:=IntToStr(i);
end;
//----------------------------------
ComboBox1.Items.Add('Мужской');
ComboBox1.Items.Add('Женский');
k:=1;
//-----------------------------------

end;




//----------Произведение матриц-----------------
procedure TForm6.Button1Click(Sender: TObject);
begin
randomize();
for i:=1 to 4 do
  for j:=1 to 4 do
    begin
      Mat1[i,j]:=random(40)-20;//-----Создание двумерных-----
      Mat2[i,j]:=random(40)-20;//----------массивов----------

      StringGrid1.Cells[i,j]:=FloatToStr(Mat1[i,j]);//---Вывод массивов---
      StringGrid2.Cells[i,j]:=FloatToStr(Mat2[i,j]);//---в StringGrid-----
    end;

for i:=1 to 4 do //Сложение матриц
  for j:=1 to 4 do
begin
  Mat3[i,j]:=Mat1[i,j]+Mat2[i,j];
end;

// вывод в StringGrid
for y:=1 to 4 do
   for l:=1 to 4 do
      begin
         StringGrid3.Cells[y,l]:=FloatToStr(Mat3[y,l]);
      end;
end;

procedure TForm6.Button6Click(Sender: TObject);
begin
XXX.Name:=Edit1.Text;
XXX.Age:=StrToInt(Edit2.Text);
if (ComboBox1.Text='Мужской') then StringGrid4.Cells[3,k]:='Муж'
else StringGrid4.Cells[3,k]:='Жен';
StringGrid4.Cells[1,k]:=XXX.Name;
StringGrid4.Cells[2,k]:=IntToStr(XXX.Age);
//StringGrid4.Cells[3,k]:=XXX.Sex;
k:=k+1
end;

procedure TForm6.Button7Click(Sender: TObject);
var
SA:string;
begin
if RadioButton5.Enabled=true then SA:='GOLD';
if RadioButton6.Enabled=true then SA:='SILVER';
if RadioButton7.Enabled=true then SA:='BRONZE';
ShowMessage(Edit9.Text+' '+ComboBox4.Text+' '+ComboBox5.Text+' '+SA);
end;

procedure TForm6.Button9Click(Sender: TObject);
var
Put:string;
begin
Put:=Edit4.Text;
CreateDir(Put); //Создание каталога
end;

//Создание типизированного файла
procedure TForm6.Button8Click(Sender: TObject);
begin
Files:=Edit4.Text+'\'+Edit5.Text;
WinFile:=Edit4.Text;
AssignFile(F1, Files); // Связь файловой переменной с файлом.
Rewrite(F1); //  Создание или открытие файла
CloseFile(F1); // закрытие файла
end;



//Запись в типизированный файл
procedure TForm6.Button10Click(Sender: TObject);
var
Names:String[30];
begin
AssignFile(F1,Files);
Reset(F1);//открытие файла
for i:=1 to 5 do
begin
  Names:=InputBox('Запись в типизированный файл','Введите фамилю','');
  Write(F1,Names);
end;
CloseFile(F1);
end;


//Считывание из тип.файла конкретной записи
procedure TForm6.Button11Click(Sender: TObject);
var
N:integer;
NN:string;
begin
AssignFile(F1,Files);
Reset(F1);
N:=StrToInt(InputBox('Считывание из файла','Введите номер записи',''));
if (N-1>FileSize(F1)) then   ShowMessage('Введенное число больше количества записей в файле')
else
 begin
    Seek(F1,N-1); // переход на 3 запись
    Read(F1,F2); // чтение текущей записи
    Edit6.Text:=F2;
 end;
CloseFile(F1);
end;


//Считывание всех записей типизированного файла
procedure TForm6.Button12Click(Sender: TObject);
var
NNN:ShortString;
begin
AssignFile(F1,Files);
Reset(F1);
for i:=0 to FileSize(F1)-1 do
  BEGIN
    Seek(F1,i);//Переход на текущую запись
    Read(F1,F2);
    ListBox2.Items[i]:=F2;
  END;
end;


//Создание Windows-файла
procedure TForm6.Button13Click(Sender: TObject);
begin
if FileExists(WinFile)=true then begin DeleteFile(WinFile) end
else H:=FileCreate(WinFile);
FileClose(H);
end;
//Запись в файл
procedure TForm6.Button14Click(Sender: TObject);
var
W:str;
begin
H:=FileOpen(WinFile,fmOpenWrite);
AssignFile(F1,Files);
Reset(F1);
for i:=0 to filesize(F1)-1 do
begin
  seek(F1,i);
  Read(F1,F2);
  FileWrite(H,W,SizeOf(W))
end;
FileSeek(H,0,0);
for i:=0 to filesize(F1)-1 do
begin
FileRead(H,W,20);
end;
FileClose(H);
CloseFile(F1);
Button10.Enabled:=true;
end;

procedure TForm6.Edit9MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit9.SelectAll;
end;

procedure TForm6.Button15Click(Sender: TObject);
var
Nomer:integer;
Y:str;
Size:Byte;
SS:integer;
SSS:TMedal;
W:str;
begin
H:=FileOpen(WinFile,fmOpenRead);
Size:=SizeOf(W);
nomer:=StrToInt(InputBox('Считывание из Windows-фала','Введите номер записи',''));
FileSeek(H,(nomer-1)*Size,1);
FileRead(H,Y,1*Size);
ShowMessage(Y);
FileClose(H);
end;

//Создание текстового файла
procedure TForm6.Button16Click(Sender: TObject);
begin
AssignFile(FF,Text);//Связь файловой переменной с файлом
ReWrite(FF);//Создание текстового файла
CloseFile(FF);//Закрытие файла
Button18.Enabled:=true;
end;


//Запись в файл
procedure TForm6.Button18Click(Sender: TObject);
var
M:string;
begin
AssignFile(FF,Text);
i:=StrToInt(InputBox('Запись в файл из мемо','Введите номер строки',''));
M:=Memo1.Lines[i-1];
Append(FF);
WriteLn(FF,M);
CloseFile(FF);
button19.Enabled:=true;
end;

procedure TForm6.Button19Click(Sender: TObject);
var
S:string;
begin
Memo2.Clear;
AssignFile( FF,Text); //связь переменной с текстовым файлом
  Reset(FF);                          //открытие файла
  i:=0;
  while not EOF(FF) do        //цикл чтения в мемо
   begin
    ReadLn(FF,S);             //Чтение в строковую переменную
    Memo2.Lines.Append(S);      //Заполнение мемо
    i:=i+1;
   end;
  CloseFile(FF);              //Закрытие файла
end;

end.