Hilfe schleifen Ende

[justloosit]

oh danke dayBoy jetzt funzt es aber kannst du mir vllt noch helfen was ich machen muss damit es dann nicht weiter drin stehen bleibt in dem label wenn ich dann wirklich funktionnierende werte hab?

[_frank_]

Zitat von justloosit:

oh danke dayBoy

schau nochmal genau hin wie dein Helfer heist

Zitat von justloosit:

jetzt funzt es aber kannst du mir vllt noch helfen was ich machen muss damit es dann nicht weiter drin stehen bleibt in dem label wenn ich dann wirklich funktionnierende werte hab?

am Anfang oder in nem else-zweig die caption entsprechend setzen vielleicht?

Mitdenken erwünscht

Gruß Frank

[justloosit]

ok sry divBoy0 ehm nya mein Probs wechseln das habsch jetz alles hingekriegt aber jetzt weiß ich nicht was ich machen soll ich hätte gerne das wenn:

Delphi-Quellcode:

 if (SeiteA+SeiteB<SeiteC) or (SeiteB+SeiteC<SeiteA) or (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);
  write1.Caption:=(' ')
  end
 end;

das ich noch mher nach then schreiben könnte also das mehreres geschieht wenn halt die bedingungen für if erfüllt erden z.b das er den umfang trotz dem berechnet sowie in das Flaeche editfenster einen - schreibt geht das denn?
ich dachte mirs so aber funzt nich:

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.

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

[mkinzler]

Mehrere Befehle (eine Sequenz) werden in Delphi mit begin..end umschlossen.

[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