Função para Ler e gravar em um arquivo INI
Página 1 de 1
Função para Ler e gravar em um arquivo INI
{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;
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- Mensagens : 1
Data de inscrição : 16/02/2017
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|