Vereinfachung gesucht

[himitsu]

@blackfin: wenn, dann doch eher so: (diese CASE würden es nicht grad vereinfachen)

Delphi-Quellcode:

if RadioButton1.Checked then begin
  if CheckBox1.Checked then mode := 1
  else if CheckBox2.Checked then mode := 2 else mode := 0;
  if mode in [0, 1] then SQL.Add('abc');
  if mode in [0, 2] then SQL.Add('def');
end;

[add]
CheckBoxen optional (einfach nil übergeben) und mehrere Strings:
(kann man auch noch mit überladenen Proceduren und/oder Default-Parametern aufmotzen und mit der "mode"-Variante kombinieren)

Delphi-Quellcode:

procedure DoThis(Group: TRadioButton; Check1, Check2: TCheckBox; SQL: TIrgendwas; Add1, Add2: array of String);
var
  i: Integer;
begin
  if Group.Checked then
    if Assigned(Check1) and Check1.Checked then begin
      for i := 0 to High(Add1) do SQL.Add(Add1[i]);
    end else if Assigned(Check2) and Check2.Checked then begin
      for i := 0 to High(Add2) do SQL.Add(Add2[i]);
    end else begin
      for i := 0 to High(Add1) do SQL.Add(Add1[i]);
      for i := 0 to High(Add2) do SQL.Add(Add2[i]);
    end;
end;

[edit]
Schade, for Add1 in S do SQL.Add(S); geht nicht.

[blackfin]

Stimmt, das ist noch besser
Naja, es ging ja in erster Linie um die Redundanz-Vermeidung, das tut mein Code auch, aber deiner ist noch eleganter

[Die Muhkuh]

So, da Franks Lösung funktioniert, brauch ich nicht mehr weiter testen, weil es ja die einfache Lösung ist (hätte fast von mir sein können )

[himitsu]

PS: Noch was zu den CheckBoxen (falls sowas nicht schon eingebaut ist).

So kann man nur eine CheckBox anklicken und vorallem sieht man auch gleich, daß die andere dann nicht mehr geht.

Delphi-Quellcode:

// ins OnClick beider CheckBoxen
procedure TForm9.CheckBox1Click(Sender: TObject);
begin
  CheckBox2.Enabled := not CheckBox1.Checked;
  CheckBox1.Enabled := not CheckBox2.Checked;
end;

[Die Muhkuh]

Ich verwende die ComboBox von DevExpress, die haben das schon on Board, dass man nur eine klicken kann

[DeddyH]

Zitat von himitsu:

Delphi-Quellcode:

// ins OnClick beider CheckBoxen
procedure TForm9.CheckBox1Click(Sender: TObject);
begin
  CheckBox2.Enabled := not CheckBox1.Checked;
  CheckBox1.Enabled := not CheckBox2.Checked;
end;

Und dann im OI beide auf Checked setzen

[edit] Nee, das bringt ja nix. Spaß macht es nur, wenn man nur eine der beiden im OI checked und die andere dann im OnShow ^^ [/edit]

[generic]

Checkboxen sollten alleine funktionieren!

Wenn nur eine an sein soll, dann hat die Windowsoberfläche Radioboxen dafür.

Alles anderen ist am GUI-Standard vorbei und kann den User irritieren!

[Die Muhkuh]

Das mit den Checkboxen war eigentlich nur ein Beispiel, um das Prinzip zu verdeutlichen. Eigentlich sind es SpeedButtons

Mit der Radiobox wählt man ein Gerät aus, das man suchen möchte, und die SpeedButtons bestimmen ob man entweder elektische Abtauung ("CheckBox1 checked" / "SB1 down"), keine Abtauung ("checkbox2 checked" / "SB2 down") oder ob es egal ist (SB1 und SB2 nicht down).

Passt schon so