AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Backup von eingabefelder

Ein Thema von bierhunter · begonnen am 18. Okt 2005 · letzter Beitrag vom 19. Okt 2005
 
bierhunter

Registriert seit: 14. Okt 2005
2 Beiträge
 
#1

Backup von eingabefelder

  Alt 18. Okt 2005, 19:29
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;
Angehängte Grafiken
Dateityp: jpg frm_561.jpg (64,7 KB, 16x aufgerufen)
Dateityp: jpg frm_677.jpg (64,7 KB, 14x aufgerufen)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz