Ajuda Em Arquivo De Configuração

[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

[Progr'amador]

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)