----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

unit Unit1;

interface

implementation

end.

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

unit Conexao;

interface

uses Classes, Dialogs, SqlExpr, DBXCommon;

type
  TConexao = class
    private
      conn: TSQLConnection; // uma referência a um TSQLConnection

    public
      // construtor da classe
      constructor Create;

      // uma função que retorna a conexão com o banco de dados
      function getConexao: TSQLConnection;
  end;

implementation

constructor TConexao.Create;
begin
  // vamos criar a conexão com o banco de dados
  conn := TSQLConnection.Create(nil);

  // vamos definir os parâmetros da conexão...note que
  // aqui estou usando uma conexão com o MS SQL Server usando
  // Windows Authentication
  begin
    conn.ConnectionName := 'MSSQLConnection';
    conn.DriverName := 'MSSQL';
    conn.LibraryName := 'dbxmss.dll';
    conn.VendorLib := 'oledb';
    conn.GetDriverFunc := 'getSQLDriverMSSQL';
    conn.LoginPrompt := False;

    // parâmetros adicionais da conexão
    conn.Params.Add('SchemaOverride=sa.dbo');
    conn.Params.Add('HostName=NOTEBOOK');
    conn.Params.Add('DataBase=estudos');
    conn.Params.Add('OS Authentication=True');

    // vamos abrir a conexão
    try
      begin
        conn.Open;
      end;
    except
      on e : TDBXError do // uses DBXCommon
         begin
           ShowMessage('Não foi possível efetuar a conexão. Erro: ' +
              e.Message);
           conn := nil;
         end;
    end;
  end;
end;

function TConexao.getConexao;
begin
  // retorna a conexão criada
  Result := conn;
end;

end.

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button1Click(Sender: TObject);
var
  conexao: TConexao; // uma referência à classe Conexao
  conn: TSQLConnection; // uses SqlExpr, DBXMsSQL, DBXCommon
begin
  conexao := TConexao.Create; // vamos criar o objeto Conexao

  // vamos agora obter a conexão
  conn := conexao.getConexao;

  // vamos verificar se a conexão foi efetuada com sucesso
  if conn <> nil then
    ShowMessage('Conexão retornada com sucesso.');
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  frase, substring: string;
begin
  frase := 'Programar em Delphi é muito bom';

  // vamos obter a substring "Delphi"
  substring := AnsiMidStr(frase, 14, 6);

  // vamos exibir o resultado
  ShowMessage('Resultado: ' + substring);
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
  arquivo_original, novo_arquivo: string;
begin
  // diretorio e nome do arquivo original
  arquivo_original := 'C:\arquivo de codigos\dados.txt';

  // diretorio e nome do novo arquivo
  novo_arquivo := 'C:\arquivo de codigos\dados2.txt';

  // vamos renomear o arquivo
  if RenameFile(arquivo_original, novo_arquivo) then
    ShowMessage('O arquivo foi renomeado com sucesso')
  else
    ShowMessage('Não foi possível renomear o arquivo');
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  // o usuário pressionou a tecla Enter?
  if Key = #13 then
    begin
      // ainda não estamos na última coluna
      if DBGrid1.Columns.Grid.SelectedIndex < DBGrid1.Columns.Count - 1 then
        // vamos passar para a próxima célula
        DBGrid1.Columns[DBGrid1.Columns.Grid.SelectedIndex + 1].Field.FocusControl
      else begin
        // vamos passar para o próximo registro da tabela
        DBGrid1.DataSource.DataSet.Next;
        DBGrid1.Columns[0].Field.FocusControl;
      end;
    end;
end;