• 0
Sign in to follow this  
Guest --fabio --

Ajuda Em Arquivo De Configuração

Question

Guest --fabio --

pessoal. montei um programinha que é uma bateria virtual.

Estou fazendo programinhas simples assim pra começar a engatinhar. Mais ficou tão legal, que eu resolvi me empenhar pra deixalo do meu jeito.

Meu problema é o seguinte.

São 15 instrumentos. eu defini 15 var´s string. toda vez que eu abro o programa eu tenho que configurar som a som que cada botão ira executar usando o SNDplayerSound.

Eu gostaria de saber, como eu crio um "TXT", pra guardas as configurações de som de cada botão, para proxima vez que eu executar o programinha, ele buscar os respectivos sons de cada botão.

Obrigado

Fabim

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Olá Fabio,

O recomendável é você criar um arquivo INI.

Exemplo:

declare no uses: IniFiles

Criando um arquivo INI:

var
  vSom1, vSom2, vSom3, etc..., Som15 : string;
  ArqIni : string;
  SomIni: TIniFile;
begin
  ArqIni := ExtractFilePath( Application.ExeName )+'\Config.ini';
  if not(fileexists(ArqIni)) then begin
     SomIni := TIniFile.Create(ArqIni);
     SomIni.WriteString('SOM', 'Som1', 'Meu Som1');
     SomIni.WriteString('SOM', 'Som2', 'Meu Som3');
     SomIni.WriteString('SOM', 'Som3', 'Meu Som2');
     etc...
     SomIni.WriteString('SOM', 'Som15', 'Meu Som15');
     SomIni.Free;
  end;
Pegando as incormações do .INI e jogando em variaveis:
ArqIni := ExtractFilePath( Application.ExeName )+'\Config.ini';
    SomIni := TIniFile.Create(ArqIni);
    vSom1 := SomIni.ReadString('SOM', 'Som1', '0');
    vSom2 := SomIni.ReadString('SOM', 'Som2', '0');
    vSom3 := SomIni.ReadString('SOM', 'Som2', '0');
    etc...
    vSom15 := SomIni.ReadString('SOM', 'Som15', '0');

abraços Progr'amador.

B)

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this