INI
18/05/2003
0
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
Curtir tópico
+ 0
Responder
Posts
18/05/2003
Alphablend
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
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.
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
Clique aqui para fazer login e interagir na Comunidade :)
