Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - "If - Then - else" Fehlermeldung! Anfängerfrage...


Guppinator - Fr 26.12.08 13:04
Titel: "If - Then - else" Fehlermeldung! Anfängerfrage...
Hallo,
ich habe zu Weihnachten ein Delphi-Buch geschenkt bekommen und wollte jetzt versuchen eine if - then - else struktur zu machen, jedoch gibt mir Borland Delphi jedesmal eine Fehlermeldung:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
procedure TForm1.Button4Click(Sender: TObject);
begin
if label2.caption = '+' then
x := strtofloat(label1.caption);
y := strtofloat(label3.caption);
Ergebnis := x + y;
showmessage('Ergebnis: ' + floattostr(Ergebnis))
else               //Hier meine Fehlermeldung: "[Fehler] Rechner4.pas(51): 'END' erwartet, aber 'ELSE' gefunden".
label2.caption := 'Y';
end;

Was habe ich denn falsch gemacht? Ich bin am verzweifeln...
Vielen Dank für Antworten!
LG


Moderiert von user profile iconChristian S.: Topic aus Sonstiges (Delphi) verschoben am Fr 26.12.2008 um 12:13


jaenicke - Fr 26.12.08 13:11

Hallo und :welcome:!

Wenn du mehrere Befehle in dem if haben willst, dann musst du diese mit begin..end umschließen, so gehört nur der erste Befehl zum if.

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
if Label2.Caption = '+' then
begin
  x := StrToFloat(Label1.Caption);
  y := StrToFloat(Label3.Caption);
  Ergebnis := x + y;
  ShowMessage('Ergebnis: ' + FloatToStr(Ergebnis));
end
else
  Label2.Caption := 'Y';
Wenn du nur einen Befehl hast, dann ist es ohne auch richtig, das hier nur als sinnfreies Beispiel:

Delphi-Quelltext
1:
2:
3:
4:
if Label2.Caption = 'Y' then
  Label2.Caption := 'X'
else
  Label2.Caption := 'Y';


Guppinator - Fr 26.12.08 13:44

Super, vielen Dank für deine Hilfe!! Es funktioniert! :)
LG