Hilfe schleifen Ende

[justloosit]

ich hab ma ne frage ich möchte eine schleife beenden aber er schreibt :Oparator ist auf diesen Operandentyp nicht anwend bar würde mich freuhen wenn ihr mir helfen könntet eine lösung zu finden :

Delphi-Quellcode:

procedure TForm1.BerechnenButtonClick(Sender: TObject);
var SeiteA, SeiteB, SeiteC, s, Flaeche, Umfang :Real;

begin
SeiteA:=StrToFloat(SeiteAEdit.Text);
SeiteB:=StrToFloat(SeiteBEdit.Text);
SeiteC:=StrToFloat(SeiteCEdit.Text);
Umfang:=SeiteA + SeiteB + SeiteC;
s:=Umfang/2;
if SeiteA+SeiteB<SeiteC then
  write1.caption:=('Berechnung nicht Möglich')
  else
  begin
  Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
  FlaecheEdit.Text:=FloatToStr(Flaeche);
  UmfangEdit.Text:=FloatToStr(Umfang);
  end
  and if SeiteA+SeiteC<SeiteB then
    write1.caption:=('Berechnung nicht Möglich')
  else
  begin
  Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
  FlaecheEdit.Text:=FloatToStr(Flaeche);
  UmfangEdit.Text:=FloatToStr(Umfang);
  end
and if SeiteB+SeiteC<SeiteA then
  write1.caption:=('Berechnung nicht Möglich')
  else
  begin
  Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
  FlaecheEdit.Text:=FloatToStr(Flaeche);
  UmfangEdit.Text:=FloatToStr(Umfang);
  end
end;
end.

ps. der fehler muss i-wo am ende sein vielen dank für die antworten im vorraus

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[mkinzler]

Welche Schleife?

[_frank_]

Zitat von justloosit:

ps. der fehler muss i-wo am ende sein vielen dank für die antworten im vorraus

glaskugel auspackt...mhm, wo ist sie denn...ahhh

der delphi-debugger sagt dir sicher ne Zeile, würde mich wundern, wenn nicht.

ansonsten tipp ich mal blind auf die beiden Zeilen:

Delphi-Quellcode:

  and if SeiteA+SeiteC<SeiteB then
...
  and if SeiteB+SeiteC<SeiteA then

//edit

Zitat von mkinzler:

Welche Schleife?

kennst du nicht die If-Schleife? *g*


HTH Frank

[justloosit]

wie meinst du das sry ich bin noch son noob xD na ich weiß einfach nich wie ich das ende mache damit ich das compilieren kann

[_frank_]

es kommt drauf an, was du machen willst...

"and" verknüpft 2 Bedingen/Werte logisch,

willst du einfach nur eine neue If-Abfrage anfangen muss das letzte mit nem Semikolon abgeschlossen werden (also end. steht aber in jedem Tutorial

HTH Frank

[justloosit]

na er sagt:Oparator ist auf diesen Operandentyp nicht anwendbar

und zeigt auf diese zeile:
end
end;<----
end.
na ich will eig das sich die alle auf eine prozedur beziehen und dann funzt das ja nicht mehr oder?

[_frank_]

mal davon abgesehen, dass bei dem end davor auch das Semikolon fehlt, hast du scheinbar das "and" noch drin

Gruß Frank

[divBy0]

Ich glaube du willst so etwas:

Delphi-Quellcode:

if (SeiteA+SeiteB<SeiteC) or (SeiteA+SeiteC<SeiteB) or (SeiteB+SeiteC<SeiteA) then
  write1.caption:=('Berechnung nicht Möglich')
  else
  begin
    Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
    FlaecheEdit.Text:=FloatToStr(Flaeche);
    UmfangEdit.Text:=FloatToStr(Umfang);
  end;

[SirThornberry]

Zitat von _frank_:

es kommt drauf an, was du machen willst...

"and" verknüpft 2 Bedingen/Werte logisch...

Fast korrekt and verknüpft 2 Werte nur logisch wenn es boolsche typen sind. Sind es ordinale Werte so werden sie bitweise verknüpft.