DelphiExperts
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

Ir para baixo

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

Mensagem por tyttosoft 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;



tyttosoft
tyttosoft

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

Ir para o topo Ir para baixo

Ir para o topo


 
Permissões neste sub-fórum
Não podes responder a tópicos