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