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.