Segurar parâmetros no txt
Olá amigos sou novo em programação e queria saber como atribuir parâmetros ao txt?
Ou seja, tenho um form, e coloquei nele um componente do delphi que muda a cor, só que quando salvo com a cor e desligo o programa e volto ele volta com a cor padrão. Queria saber realmente como segurar essas configurações em um txt e toda vez que o programa fosse iniciado faria uma pesquisa no txt e colocaria a cor que está salvo lá.
Quem poder me ajudar, ficaria super grato...
Ou seja, tenho um form, e coloquei nele um componente do delphi que muda a cor, só que quando salvo com a cor e desligo o programa e volto ele volta com a cor padrão. Queria saber realmente como segurar essas configurações em um txt e toda vez que o programa fosse iniciado faria uma pesquisa no txt e colocaria a cor que está salvo lá.
Quem poder me ajudar, ficaria super grato...
Ecie
Curtidas 0
Respostas
Vinicius2k
24/08/2003
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]
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]
GOSTEI 0