INI

Delphi

18/05/2003

Como faço para quardar a ultima posição em um arquivo ini,
de um RadioGroup do Delphi.

Grato
Juarezber@terra.com.br , favor responder neste email.


Juarezber

Juarezber

Curtidas 0

Respostas

Alphablend

Alphablend

18/05/2003

no modo create no Form faça:
procedure TForm1.FormCreate(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ´c:\nomedoarquivo.ini´ );
  try
    RadioGroup1.itemindex:=Ini.ReadInteger( ´RadioGroup´, ´Index´, 0 );
  finally
    TIniFile.Free;
  end;
end;


No Evento Close faça o seguinte:
procedure TForm1.FormClose(Sender: TObject; var Action TCloseAction)
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create( ChangeFileExt( Application.ExeName, ´.INI´ ) );
  try
   Ini.WriteInteger( ´RadioGroup´, ´Index´, RadioGroup1.ItemIndex);
  finally
    TIniFile.Free;
  end;
end;



Falow

AlphaBlend


GOSTEI 0
Juarezber

Juarezber

18/05/2003

AlphaBlend, obrigado pela força.


GOSTEI 0
Alphablend

Alphablend

18/05/2003

Disponha ....
:wink:


GOSTEI 0
Juarezber

Juarezber

18/05/2003

Fst:= Copy(Application.ExeName, 1, Pos(´.´,Application.ExeName)-1)+´.ini´;
Inif:= TIniFile.Create(fst); //este codigo salva no caminho da aplicação


Como faço, para escolher atraves de uma caixa de dialago, o caminho
para salvar meu INI.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

18/05/2003

Fst:= Copy(Application.ExeName, 1, Pos(´.´,Application.ExeName)-1)+´.ini´; Inif:= TIniFile.Create(fst); //este codigo salva no caminho da aplicação Como faço, para escolher atraves de uma caixa de dialago, o caminho para salvar meu INI.

Colega,

Utilize um SaveDialog (paleta Dialogs). Exemplo:

if SaveDialog1.Execute
  then TIniFile.Create(SaveDialog1.FileName);



GOSTEI 0
Juarezber

Juarezber

18/05/2003

Obrigado Zanela.


GOSTEI 0
POSTAR