Buscar por:

Manipulação de arquivo ini - leitura de informações compostas (Atualizado)

Código

{ A idéia inicial dessa dica foi do colaborador Ricardo Carvalho, eu apenas resolvir

dá uma atualizada, então vamos lá.}

procedure TForm1.LerValoresChaveIni(const CaminhoArquivoIni, Secao,

          Chave: String; Delimitador: char; var Lista: TStringList);

var

  ArquivoIni : TIniFile; //Classe IniFiles

  Parametro : String;

  i: integer;

begin

  ArquivoIni := TIniFile.Create(CaminhoArquivoIni);

  Parametro := ArquivoIni.ReadString(Secao, Chave, '');

  Lista.Clear;

  Lista.Delimiter := Delimitador;

  Lista.DelimitedText := Parametro;

  ArquivoIni.Free;

end;

{ Para testar a função crie um arquivo no diretório raiz chamado TESTE.INI e edite-o com as

seguintes características:

[SECAOTESTE]

NOMES=TAMARA|LETICIA|SIRLENE

Coloque em um form 1 button e 1 memo}

procedure TForm1.Button1Click(Sender: TObject);

var

  Lista: TStringList;

begin

  try

    Lista := TStringList.Create;

    LerValoresChaveIni( 'C:TESTE.INI', 'SECAOTESTE', 'NOMES', '|', Lista);

    Memo1.Lines.Add(lista.Text);

  finally

    FreeAndNil(Lista);

  end;

end;