Thema: Delphi Vereinfachung gesucht

Einzelnen Beitrag anzeigen

Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#1

Vereinfachung gesucht

  Alt 2. Sep 2010, 11:14
Delphi-Version: 2005
Hi,

ich hab hier in einem Code mehrere Stellen (ca. 30 Stück), die vom Prinzip so aussehen:

Delphi-Quellcode:
if RadioButton1.Checked then
begin
  if CheckBox1.Checked then
    SQL.Add('abc')
  else
  if CheckBox2.Checked then
    SQL.Add('def')
  else
  begin
    SQL.Add('abc');
    SQL.Add('def');
  end;
end;
Hat jemand eine sinnvolle Idee, sich da die Redundanz zu sparen?
  Mit Zitat antworten Zitat