INI

18/05/2003

2

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.


Responder

Posts

18/05/2003

Alphablend

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


Responder

18/05/2003

Juarezber

AlphaBlend, obrigado pela força.


Responder

19/05/2003

Alphablend

Disponha ....
:wink:


Responder

21/03/2004

Juarezber

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.


Responder

21/03/2004

Aroldo Zanela

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);



Responder

21/03/2004

Juarezber

Obrigado Zanela.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira