Como obter dados de um arquivo ini

Question

como fa�o isto. comopoderia colocar em um arquivo texto algumas vari�veis, e quando o sistema fosse inicialiar ele lesse estasd informa��es - E�um sistema frente de caixa - Estou usando Firebird, em u...

Denis · Answer

Olha uma fun��o para acessar as vari�veis direto.

Function LerIni(Arquivo : String;Titulo : String;Variavel : String):String;
var texto : String;
ArqIni : tIniFile;
begin
try
ArqIni := tIniFile.Create(Arquivo);
texto := ArqIni.ReadString(titulo, variavel, Texto);
result := Texto;
finally
ArqIni.Free;
end
end;

Crownx · Answer

[quote:ad7df776f2=�Denis�]Olha uma fun��o para acessar as vari�veis direto.Function LerIni(Arquivo : String;Titulo : String;Variavel : String):String;var texto : String;    ArqIni : tIniFile;begin     try        ArqIni := tIniFile.Create(Arquivo);        texto  := ArqIni.ReadString(titulo, variavel, Texto);        result := Texto;     finally        ArqIni.Free;     endend;[/quote:ad7df776f2]OI Denis...Porque quando declarovarArqIniFile : tIniFile;o delphi afirma que o tIniFile � identificador nao declaravel...nao consigo.O q pode ser ?...

Bacalhau · Answer

Colega j� declaraste �uses IniFiles�?� que o Delphi n�o vai saber o que � o TIniFile, antes de colocares esta unit no �uses�...

Denis · Answer

Bom. O colega j� respondeu acima. Aproveitando tem a fun��o para escrever no ini. N�o sei se te passei tb.

----------------------------

Function EscreveIni(Arquivo : String;Titulo : String;Variavel : String;Texto : String):Boolean;
var ArqIni : tIniFile;
begin
try
ArqIni := tIniFile.Create(Arquivo);
ArqIni.WriteString(titulo, variavel, Texto);
result := True;
finally
ArqIni.Free;
end
end;

F�rum Como obter dados de um arquivo ini #196354