Werte in .ini speichern?

[stoxx]

solche "Kleingikeiten" würde ich nur noch so speichern *grins*

Delphi-Quellcode:

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, uBase_XMLSerializer;

type
  TForm9 = class(TForm)
    btn1: TButton;
    tb1: TTrackBar;
    chk1: TCheckBox;
    edt1: TEdit;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type TSaveValues = class(TPersistent)
private
    FPosition : Integer;
    FProxyIP: string;
    FProxyChecked: Boolean;
published
 property Position : Integer read FPosition write FPosition;
 property Checked : Boolean read FProxyChecked write FProxyChecked;
 property Text : string read FProxyIP write FProxyIP;
end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.btn1Click(Sender: TObject);
var value : TSaveValues;
begin
  value := TSaveValues.Create;
  value.CopyPupProperiesFrom(tb1);
  value.CopyPupProperiesFrom(chk1);
  value.CopyPupProperiesFrom(edt1);
  value.SaveToXML('Settings.xml');
  value.Free;
end;

end.

http://www.delphipraxis.net/internal...148&highlight=




.