CADSTRO DE PESSOAS

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IniFiles;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    Edit5: TEdit;
    Label6: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  IniFile: TIniFile;
  FilePath: string;
begin
  FilePath := IncludeTrailingPathDelimiter(GetEnvironmentVariable('USERPROFILE')) + 'Documents\seu_arquivo.ini';
  if not FileExists(FilePath) then
  begin
    IniFile := TIniFile.Create(FilePath);
    try
      IniFile.WriteInteger('Pessoa', 'Count', 0);
    finally
      IniFile.Free;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile: TIniFile;
  FilePath: string;
  Count: Integer;
begin
  if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <> '') and (ComboBox1.Text <> '') then
  begin
    FilePath := IncludeTrailingPathDelimiter(GetEnvironmentVariable('USERPROFILE')) + 'Documents\seu_arquivo.ini';
    IniFile := TIniFile.Create(FilePath);
    try
      Count := IniFile.ReadInteger('Pessoa', 'Count', 0) + 1;
      IniFile.WriteString('Pessoa' + IntToStr(Count), 'Nome', Edit1.Text);
      IniFile.WriteString('Pessoa' + IntToStr(Count), 'CPF', Edit2.Text);
      IniFile.WriteString('Pessoa' + IntToStr(Count), 'Placa', Edit3.Text);
      IniFile.WriteString('Pessoa' + IntToStr(Count), 'QuemLiberou', Edit4.Text);
      IniFile.WriteString('Pessoa' + IntToStr(Count), 'OndeFoi', ComboBox1.Text);
      IniFile.WriteString('Pessoa' + IntToStr(Count), 'HoraEntrada', TimeToStr(Now));
      IniFile.WriteInteger('Pessoa', 'Count', Count);
    finally
      IniFile.Free;
    end;

    // Limpa os campos de edição
    Edit1.Text := '';
    Edit2.Text := '';
    Edit3.Text := '';
    Edit4.Text := '';
    ComboBox1.Text := '';
  end
  else
  begin
    ShowMessage('Por favor, preencha todos os campos antes de salvar.');
  end;
end;

procedure TForm1.Edit5Change(Sender: TObject);
var
  IniFile: TIniFile;
  FilePath: string;
  Nome: string;
  Count, I: Integer;
begin
  FilePath := IncludeTrailingPathDelimiter(GetEnvironmentVariable('USERPROFILE')) + 'Documents\seu_arquivo.ini';
  if FileExists(FilePath) then
  begin
    IniFile := TIniFile.Create(FilePath);
    try
      Count := IniFile.ReadInteger('Pessoa', 'Count', 0);
      for I := 1 to Count do
      begin
        Nome := IniFile.ReadString('Pessoa' + IntToStr(I), 'Nome', '');
        if Pos(Edit5.Text, Nome) > 0 then
        begin
          Memo1.Lines.Clear;
          Memo1.Lines.Add('Nome: ' + Nome);
          Memo1.Lines.Add('CPF: ' + IniFile.ReadString('Pessoa' + IntToStr(I), 'CPF', ''));
          Memo1.Lines.Add('Placa: ' + IniFile.ReadString('Pessoa' + IntToStr(I), 'Placa', ''));
          Memo1.Lines.Add('Quem Liberou: ' + IniFile.ReadString('Pessoa' + IntToStr(I), 'QuemLiberou', ''));
          Memo1.Lines.Add('Onde Foi: ' + IniFile.ReadString('Pessoa' + IntToStr(I), 'OndeFoi', ''));
          Memo1.Lines.Add('Hora de Entrada: ' + IniFile.ReadString('Pessoa' + IntToStr(I), 'HoraEntrada', ''));
        end;
      end;
    finally
      IniFile.Free;
    end;
  end;
end;

end.