Ir para conteúdo
Fórum Script Brasil
  • 0

Ini


nightmare

Pergunta

3 respostass a esta questão

Posts Recomendados

  • 0

Olá,

Declare no Uses IniFiles;

function LerIni :string;

var ArqIni : tIniFile;
    Texto: string;

begin
 ArqIni := tIniFile.Create('c:\Teste.Ini'); // Caminho do seu arquivo .ini
 Try
  result := ArqIni.ReadString('Config','BD',Texto);
 Finally
  ArqIni.Free;
 end;
end;
Para chamar
procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text:=LerIni;
end;

Abs.

Kiko

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...