Was ist hier falsch?

[Schnittcher]

Hallo,

was ist hier falsch? Das else wird immer unterstrichen?

Delphi-Quellcode:

procedure TForm1.cmdBerechneClick(Sender: TObject);
var
Berechnung: IBerechnung;
kw: Double;
begin
try
if radiops.Checked then
kw:= StrToFloat(edKW.Text);
Berechnung:= Tberechnung.Create;
Berechnung.ps := kw;
lbPS.Caption:= FloatToStr(Berechnung.Ergebnis)+ 'PS';
Berechnung:= nil
else
kw:= StrToFloat(edKW.Text);
Berechnung:= Tberechnung.Create;
Berechnung.ps := kw;
lbPS.Caption:= FloatToStr(Berechnung.Ergebnis)+ 'PS';
Berechnung:= nil;
end;
end;
except
raise EBerechnung.Create('Fehler');
end;
end;

Gruß,
Schnittcher

[Bernhard Geyer]

Wie wäre es mit begin ... end; Klammerung?

[Forlan]

da fehlt ein begin end block^^

... arrghh... dieser rote Kasten...:P

[Medium]

Die Codeformatierung ist zumindest schonmal falsch. Jede Wette dass einem der eigentliche Fehler ins Gesicht springt wenn du das mal brauchbar hinschreibst ;)

[Phoenix]

1.) Der Threadtitel. Der sollte etwas aussagekräftiger sein, z.B. 'if then else Syntax nicht korrekt?'

2.)

Delphi-Quellcode:

  if x=y then
    Anweisung()
  else
    Alternative();

// oder
  if x=y then
  begin
    Anweisung1();
    Anweisung2();
  end
  else
    Alternative();

Mehrere Anweisungen müssen mit begin / end umgeben sein, nur einzelne Anweisungen dürfen ohne begin/end in einer if-Verzweigung stehen.

[angos]

und zu guter letzt wird in beiden Fällen, ob nun if oder else das gleiche ausgeführt.

Tipp am Rande: Schau dir mal die Tutorials unter http://www.delphi-treff.de/ an.


Gruß
angos

[TeronG]

@Schnittcher: Arbeitest du zufällig auch mit CoDeSys!?

Denn die haben eine solche "ohne-begin&end-If-Abfrage" .... über die stolpere ich jedes mal :oops: :wall:

[Schnittcher]

Ich habe früher mit VB gearbeitet, aber ich kann mich nicht mehr an das begin und end erinnern.
Es tut mir leid.

Danke für die schnellen Antworten.

Gruß,
Schnittcher