könt ihr mir sagen was an diesem bmi rechner (versuch :D) falsch ist ??

[baumina]

formatiers einfach richtig, dass siehst du es auf einen Blick:

Delphi-Quellcode:

if rgGeschlecht.ItemIndex = 0 then //Berechnung Mann
begin // hier würde ich dir ein "begin" ans Herz legen <<-----
  case BMI of
    16..19: begin
              pnlErgebnis.caption:= 'Untergewicht';
            end;
    20..25: begin
              pnlErgebnis.caption:='Normalgewicht';
            end;
    26..30: begin
              pnlErgebnis.caption:='Übergewicht';
            end;
    31..40: begin
              pnlErgebnis.caption:='Fettsack';
            end;
  end;  // hier fehlte das "end" vom case <<-----
end else // und hier ein "end"  <<----
begin
  case BMI of //Berechnung Frau
    15..18: begin
              pnlErgebnis.caption:= 'Untergewicht';
            end;
    19..24: begin
              pnlErgebnis.caption:='Normalgewicht';
            end;
    25..29: begin
              pnlErgebnis.caption:='Übergewicht';
            end;
    30..40: begin
              pnlErgebnis.caption:='Fettsack';
            end;
  end; // hier fehlte das "end" vom case <<-----
end;