INI
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.
de um RadioGroup do Delphi.
Grato
Juarezber@terra.com.br , favor responder neste email.
Juarezber
Curtidas 0
Respostas
Alphablend
18/05/2003
no modo create no Form faça:
No Evento Close faça o seguinte:
Falow
AlphaBlend
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
18/05/2003
AlphaBlend, obrigado pela força.
GOSTEI 0
Alphablend
18/05/2003
Disponha ....
:wink:
:wink:
GOSTEI 0
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.
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
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
18/05/2003
Obrigado Zanela.
GOSTEI 0