AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Hilfe schleifen Ende

Ein Thema von justloosit · begonnen am 17. Mär 2009 · letzter Beitrag vom 18. Mär 2009
Antwort Antwort
Seite 2 von 2     12
justloosit

Registriert seit: 10. Mär 2009
42 Beiträge
 
#11

Re: Hilfe schleifen Ende

  Alt 17. Mär 2009, 19:55
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?
  Mit Zitat antworten Zitat
Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#12

Re: Hilfe schleifen Ende

  Alt 17. Mär 2009, 20:40
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
  Mit Zitat antworten Zitat
justloosit

Registriert seit: 10. Mär 2009
42 Beiträge
 
#13

Re: Hilfe schleifen Ende

  Alt 17. Mär 2009, 20:57
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]
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#14

Re: Hilfe schleifen Ende

  Alt 17. Mär 2009, 21:17
Mehrere Befehle (eine Sequenz) werden in Delphi mit begin..end umschlossen.
Markus Kinzler
  Mit Zitat antworten Zitat
Sirlunchalot

Registriert seit: 6. Mär 2009
8 Beiträge
 
#15

Re: Hilfe schleifen Ende

  Alt 18. Mär 2009, 18:35
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
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz