Backup von eingabefelder

[bierhunter]

servus,

hab da ein formular (siehe anhang) in dem befinden sich einige editfelder checkboxen und radiobotten. wie kann ich die einstellungen speichern bevor der user sie verändert, um sie dann wiederherzustellen wenn der user auf abbrechen drückt?

hab da ne möglichkeit gefunden aber die war ziehmlich lang(siehe unten)

wäre echt gut wenn mir da jemand eine ein wenig schnellere lösung hat



implementation

{$R *.dfm}

var bu_ed_e1, bu_ed_e2, bu_ed_e3, bu_ed_e4, bu_ed_e5, bu_ed_e6, bu_ed_e7,
bu_ed_e8, bu_ed_e9, bu_ed_e10, bu_ed_e11, bu_ed_e12, bu_ed_e13, bu_ed_e14,
bu_ed_e15, bu_ed_e16, bu_ed_e17, bu_ed_e18, bu_ed_e19, bu_ed_e20,
bu_ed_a1, bu_ed_a2, bu_ed_a3, bu_ed_a4, bu_ed_a5, bu_ed_a6, bu_ed_a7,
bu_ed_a8, bu_ed_a9, bu_ed_a10, bu_ed_digi:string;

bu_cb_a1, bu_cb_a2, bu_cb_a3, bu_cb_a4, bu_cb_a5, bu_cb_a6, bu_cb_a7,
bu_cb_a8, bu_cb_a9, bu_cb_a10, bu_cb_digi,
bu_cb_e1, bu_cb_e2, bu_cb_e3, bu_cb_e4, bu_cb_e5, bu_cb_e6, bu_cb_e7,
bu_cb_e8, bu_cb_e9, bu_cb_e10, bu_cb_e11, bu_cb_e12, bu_cb_e13, bu_cb_e14,
bu_cb_e15, bu_cb_e16, bu_cb_e17, bu_cb_e18, bu_cb_e19, bu_cb_e20,
bu_rb_a1, bu_rb_a2, bu_rb_a3, bu_rb_a4, bu_rb_a5, bu_rb_a6, bu_rb_a7,
bu_rb_a8, bu_rb_a9, bu_rb_a10, bu_rb_digi,
bu_rb_e1, bu_rb_e2, bu_rb_e3, bu_rb_e4, bu_rb_e5, bu_rb_e6, bu_rb_e7,
bu_rb_e8, bu_rb_e9, bu_rb_e10, bu_rb_e11, bu_rb_e12, bu_rb_e13, bu_rb_e14,
bu_rb_e15, bu_rb_e16, bu_rb_e17, bu_rb_e18, bu_rb_e19, bu_rb_e20:boolean;


procedure TTfrm_kanaele.bt_abbrechenClick(Sender: TObject);
begin
(*alte werte wiederherstellen, in die editfelder Kanal schreiben
und formular schließen*)
Tfrm_kanaele.ed_e1.Text:=bu_ed_e1;
Tfrm_kanaele.ed_e2.Text:=bu_ed_e2;
...
Tfrm_kanaele.ed_e20.Text:=bu_ed_e20;
Tfrm_kanaele.ed_a1.Text:=bu_ed_a1;
Tfrm_kanaele.ed_a2.Text:=bu_ed_a2;
...
Tfrm_kanaele.ed_a10.Text:=bu_ed_a10;

Tfrm_kanaele.cb_e1.Checked:=bu_cb_e1;
Tfrm_kanaele.cb_e2.Checked:=bu_cb_e2;
...
Tfrm_kanaele.cb_e20.Checked:=bu_cb_e20;
Tfrm_kanaele.cb_a1.Checked:=bu_cb_a1;
Tfrm_kanaele.cb_a2.Checked:=bu_cb_a2;
...
Tfrm_kanaele.cb_a10.Checked:=bu_cb_a10;

Tfrm_kanaele.rb_e1.Checked:=bu_rb_e1;
Tfrm_kanaele.rb_e2.Checked:=bu_rb_e2;
...
Tfrm_kanaele.rb_e20.Checked:=bu_rb_e20;
Tfrm_kanaele.rb_a1.Checked:=bu_rb_a1;
Tfrm_kanaele.rb_a2.Checked:=bu_rb_a2;
...
Tfrm_kanaele.rb_a10.Checked:=bu_rb_a10;

close;
end;

procedure TTfrm_kanaele.backupExecute(Sender: TObject);
begin
//backup der formulardaten erstellen
bu_ed_e1:=Tfrm_kanaele.ed_e1.Text;
bu_ed_e2:=Tfrm_kanaele.ed_e2.Text;
...
bu_ed_e20:=Tfrm_kanaele.ed_e20.Text;
bu_ed_a1:=Tfrm_kanaele.ed_a1.Text;
bu_ed_a2:=Tfrm_kanaele.ed_a2.Text;
...
bu_ed_a10:=Tfrm_kanaele.ed_a10.Text;

bu_cb_e1:=Tfrm_kanaele.cb_e1.Checked;
bu_cb_e2:=Tfrm_kanaele.cb_e2.Checked;
...
bu_cb_e20:=Tfrm_kanaele.cb_e20.Checked;
bu_cb_a1:=Tfrm_kanaele.cb_a1.Checked;
bu_cb_a2:=Tfrm_kanaele.cb_a2.Checked;
...
bu_cb_a10:=Tfrm_kanaele.cb_a10.Checked;

bu_rb_e1:=Tfrm_kanaele.rb_e1.Checked;
bu_rb_e2:=Tfrm_kanaele.rb_e2.Checked;
...
bu_rb_e20:=Tfrm_kanaele.rb_e20.Checked;
bu_rb_a1:=Tfrm_kanaele.rb_a1.Checked;
...;
bu_rb_a10:=Tfrm_kanaele.rb_a10.Checked;
end;