Hilfe schleifen Ende

[Sirlunchalot]

Delphi-Quellcode:

if (SeiteA+SeiteB<SeiteC) or (SeiteB+SeiteC<SeiteA) or (SeiteA+SeiteC<SeiteB) then
write1.caption:=('Berechnung nicht möglich!');
UmfangEdit.Text:=FloatToStr(Umfang);
FlaecheEdit.Text:=('-');

else
  begin
  Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
  FlaecheEdit.Text:=FloatToStr(Flaeche);
  UmfangEdit.Text:=FloatToStr(Umfang);
  write1.Caption:=(' ')
  end
end;
end.

Dieses von dir geschrieben müsste verändert werden, wie von mkinzler schon gesagt.
Du müsstest einfach :

Delphi-Quellcode:

if (SeiteA+SeiteB<SeiteC) or (SeiteB+SeiteC<SeiteA) or (SeiteA+SeiteC<SeiteB) then
begin
write1.caption:=('Berechnung nicht möglich!');
UmfangEdit.Text:=FloatToStr(Umfang);
FlaecheEdit.Text:=('-');
end

else
  begin
  Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
  FlaecheEdit.Text:=FloatToStr(Flaeche);
  UmfangEdit.Text:=FloatToStr(Umfang);
  write1.Caption:=(' ')
  end
end;
end.

schreiben...
(einfach nach der if Bedingung ein begin setzen und vor dem else ein end einfügen

Gruß Max