Nur das größte Ergebnis wird angegeben (Rechner mit Checkbox und Radiobox)

[ItsMe1]

Danke für die schnelle Antwort
Gruss

[DeddyH]

Nachtrag: wenn Du mehrere Vergleiche als Bedingung verknüpfen willst, musst Du jeden einzelnen Vergleich in Klammern einschließen.
if (a = 10) and (b < 5) and (c = 42) then

[Sir Rufo]

[OT]
Wie kommt man eigentlich darauf bei einer CheckBox vom einem Hacken zu sprechen?
Das scheint immer beliebter zu werden, aber ...

Wird hier auf etwas herumgehackt?
Ist hier ein Hacker am Werk?
Wurde etwas mit einem Hackbrett erfasst?

Haken oder Häkchen könnte ich verstehen, aber so...
[/OT]

[evilboy]

Zitat von Sir Rufo:

[OT]
Wie kommt man eigentlich darauf bei einer CheckBox vom einem Hacken zu sprechen?
Das scheint immer beliebter zu werden, aber ...

Wird hier auf etwas herumgehackt?
Ist hier ein Hacker am Werk?
Wurde etwas mit einem Hackbrett erfasst?

Haken oder Häkchen könnte ich verstehen, aber so...
[/OT]

(OT) Neulich durfte ich Seminararbeiten korrigieren und da war auch schon mal von "Hackenkreuz" die Rede. Aber so wird es nicht mal ausgesprochen… (Wobei, über manche anderen Sprachtrends kann ich mich auch nur aufregen )

[Bummi]

Delphi-Quellcode:

var
 i:Integer;
 sum:Double;
begin
   sum := 0;
   if RadioButton1.checked then
      begin
         for I := 1 to 4 do
           if TCheckBox(FindComponent('Checkbox' + IntToStr(i))).Checked then
             Sum := Sum +  StrToFloat(TEdit(FindComponent('Edit' + IntToStr(i))).Text);
         Label7.Caption := FloatToStr(sum);
      end;
end;

wobei der Zugriff über eigene Listen oder Array mit den Komponenten flotter wäre.

[musicman56]

Delphi-Quellcode:

var
  i:Integer;
  sum:Double;
 begin
  sum := 0;
  if RadioButton1.checked then
  for I := 1 to 4 do
  if TCheckBox(FindComponent('Checkbox' + IntToStr(i))).Checked 
  then Sum := Sum + StrToFloat(TEdit(FindComponent('Edit' + IntToStr(i))).Text);
  Label7.Caption := FloatToStr(sum);
 end;

Ich würde es lieber so machen, weil sonst Label7 eine "alte" Summe anzeigt, wenn keine Checkbox markiert ist.