Função para Ler e gravar em um arquivo INI

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Função para Ler e gravar em um arquivo INI

Mensagem por tyttosoft em Qui Fev 16, 2017 11:31 am

{Tytto Soft 79 9 8832-5288}
unit ugravalerini;

interface

uses System.IniFiles;



procedure gravaarq(sessao, chave, aTexto, caminho: string);
function lerarq(arq, sessao, chave, padrao: string): string;

implementation

function lerarq(arq, sessao, chave, padrao: string): string;
var
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create(arq);
try
RESULT := ArqIni.ReadString(sessao, chave, padrao);
finally
ArqIni.Free;
end;
end;
procedure gravaarq(sessao, chave, aTexto, caminho: string);
var
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create(caminho);
try
ArqIni.WriteString(sessao, chave, aTexto);
finally
ArqIni.Free;
end;
end;


end.

//Botão para ler o arquivo
procedure TForm1.btlerarqClick(Sender: TObject);
var local, busca:string;
begin
local:= ExtractFilePath(ParamStr(0)) + 'rede.ini';
busca:= ExtractFilePath(ParamStr(0));
edit4.Text:= lerarq(local, 'tyttosoft', 'BD', '')
end;


//Botão para salvar no arquivo
procedure TForm1.BtsalvararqClick(Sender: TObject);
var local:string;
begin
local:= ExtractFilePath(ParamStr(0)) + 'rede.ini';
gravaarq('tyttosoft', 'BD', edit5.Text, local);
gravaarq('tyttosoft', 'DRIVERNAME', 'MySQL', local);
end;



avatar
tyttosoft

Mensagens : 1
Data de inscrição : 16/02/2017

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum