0

Segue abaixo o cóigo:

procedure TfrmSelection.FormActivate(Sender: TObject);
  var
    ArqIni: TIniFile;
  begin
    ArqIni := ArqIni.Create('C:\sga\saga.ini');
    try
    ZConnection1.Connected := false;
    ZConnection1.HostName := ArqIni.ReadString('BASEDADOS', 'PathSec', '');
    ZConnection1.Database := ArqIni.ReadString('BASEDADOS','Base', '');
    ZConnection1.Password := ArqIni.ReadString('BASEDADOS','Chave', '');
    except
    on E:Exception do MessageDlg('Erro ao conectar!'#13'Erro: '+ e.Message, mtError, [mbOK], 0);
    end;
  end;

Porém, acredito que este seja o código que esta dando erro de Access Violation.

Minha pergunta é: Como eu faria para melhorar o código ao ponto de recriar a pasta, o arquivo e o conteúdo do mesmo em caso de exclusão do arquivo .INI?

1 Resposta 1

1

Fiz aqui deste jeito e funcionou:

var
  arquivo : TIniFile;
  existeArquivo : BOOL;
begin
  if not DirectoryExists('C:\sga') then
  begin
    if not CreateDir('C:\sga') then
    begin
      ShowMessage('Erro ao tentar criar o diretório!');
    end;
  end;
  existeArquivo := True;
  // Verifica se existe o arquivo
  if not FileExists('C:\sga\saga.ini') then
    existeArquivo := False;

  arquivo := TIniFile.Create('C:\sga\saga.ini');

  // Gravar valores
  if not existeArquivo then
  begin
    arquivo.WriteString('BASEDADOS', 'PathSec', 'PathSecTestes');
    arquivo.WriteString('BASEDADOS', 'Base', 'BaseTestes');
    arquivo.WriteString('BASEDADOS', 'Chave', 'ChaveTestes');
  end;

  // Lendo valores
  Edit1.Text := arquivo.ReadString('BASEDADOS', 'PathSec', '');
1
  • Obrigado Marlon! Muito Bom! ;]
    – Ramon Ruan
    Commented 8/05/2014 às 17:41

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .