Fórum Segurar parâmetros no txt #177173

ecie,
na verdade, acho q o q vc estah precisando eh de um arquino .ini ou gravar isso no registro do windows... eu particularmente prefiro o .ini
pra vc usar eh simples...
1 - Acrescente a unit IniFiles na sua lista de uses.
2 - declare uma variável para o seu arquivo .ini
2 - no oncreate do form vc lê na sequencia chave->nome->valor
3 - no onclose do form vc grava na mesma sequência...

um exemplo : (usei um colorbox e no onchange alterei a cor do form)..

[color=blue:bab19b427a]unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IniFiles, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
ColorBox1: TColorBox;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ColorBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ini_params: TIniFile;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ini_params:= TiniFile.Create(ExtractFilePath(application.ExeName) + ´params.ini´);
form1.Color:= ini_params.ReadInteger(´FORM1´,´COLOR´,0);
ini_params.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ini_params:= TiniFile.Create(ExtractFilePath(application.ExeName) + ´params.ini´);
ini_params.WriteInteger(´FORM1´,´COLOR´,form1.Color);
ini_params.Free;
end;

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
form1.Color:= colorbox1.Selected;
end;

end.[/color:bab19b427a]