Практическое задание по Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  m: array[1..20] of integer; // Массив для хранения элементов таблицы
  i, i2, a: integer;
begin
  a := SpinEdit1.Value; // Искомый элемент
  Randomize; // Инициализация генератора случайных чисел
  for i := 1 to 20 do
    m[i] := Random(100); // Создание неупорядоченной "таблицы"
 
  i2 := 0; // задаём номер, которого нет в массиве
  for i := 1 to 20 do
    if m[i] = a then // Если элемент массива совпадает с искомым элементом, то
      i2 := i; // запоминаем его номер
 
  if i2 > 0 then // Если искомый элемент найден в массиве, то выводим его номер
    Label1.Caption := 'Искомый элемент в таблице имеет номер ' + IntToStr(i2)
  else // Иначе сообщение, что в массиве нет такого элемента
    Label1.Caption := 'Искомый элемент в таблице не найден';
end;

const M = 7;                     {Макс. размер таблицы}
type TRec = record               {Тип записей таблицы}
            Tag:  Char;          {Тэг записи}
            Key:  string[5];     {Ключ записи}
            Info: string[10];    {Значение записи}
            end;
     TTab = array[1..M] of TRec; {Тип таблицы}
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Tab:   TTab;                {Таблица}
  Cnt:   Integer;             {Фактический размер таблицы}
 
implementation
 
{$R *.dfm}
 
procedure Search(Arg: string; var Index, ErrCode: Integer);
var
  i: Integer;
begin
  for i:=1 to Cnt do
    if Tab[i].Key = Arg then begin
      Index:=i;
      ErrCode:=0;
      Exit;
    end;
  ErrCode:=1; {Запись не найдена}
end; {Search}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Cnt := 0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  NewRec: TRec;
  NewKey, NewInfo: string;
begin
  // Код кнопки добавления записи
  if Cnt >= M then begin
//    Error := 1;
    Label1.Caption := 'Введены все значения таблицы';
    Exit;
  end;
 
  NewKey := Edit1.Text;
  NewInfo := Edit2.Text;
  with NewRec do begin
    Key := NewKey;
    Info := NewInfo;
  end;
  Inc(Cnt);
  Tab[Cnt] := NewRec;
  Label1.Caption := 'Введено ' + IntToStr(Cnt) + ' из ' + IntToStr(M) + ' записей';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  index, error: integer;
  key: string;
begin
  // Код кнопки поиска записи
  key := Edit1.Text;
  Search(key, index, error);
  if error = 0 then begin // Если найден элемент в таблице, то выводим его значение
    Label1.Caption := 'Искомый элемент в таблице имеет значение ' + Tab[index].Info;
  end else begin // Иначе сообщение, что в массиве нет такого элемента
    Label1.Caption := 'Искомый элемент в таблице не найден';
  end;
end;
 
end.