| Autor |
Beitrag |
delphi_77
Hält's aus hier
Beiträge: 1
|
Verfasst: Fr 28.11.08 17:33
procedure TForm1.Button1Click(Sender: TObject);
var EN: Real;
begin
EN:= StrToFloat(Edit1.Text);
if EN<=0,4 showMessage('unpolare Atombindung.')
else EN>0,4 then showMessage('polare Atombindung.')
else EN>=1,7 then showMessage('Ionenbindung.');
Edit1.Text:=FloatToStr(EN);
end;
end.
|
|
GTA-Place
 
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Fr 28.11.08 17:38
Du machst so einiges falsch:
- falscher Titel
- ohne [delphi]-Tags
- ohne Problembeschreibung
Ansonsten musst du nach jedem else noch ein if schreiben.
_________________ "Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
|
|
elundril
Beiträge: 3747
Erhaltene Danke: 123
Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
|
Verfasst: Fr 28.11.08 17:40
außerdem überschneiden sich die beiden else zweige. anders gesagt: mach auch eine obere grenze beim ersten else rein. 
lg elundril _________________ This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
|
|
GericasS
Beiträge: 540
Windows Vista Home Premium
D2010, VisualStudio2008
|
Verfasst: Fr 28.11.08 17:44
Außerdem solltest du die , durch . erstezen
Glaube so kans funktionieren oder
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.Button1Click(Sender: TObject);
var EN: Real;
begin
EN:= StrToFloat(Edit1.Text);
if EN <= 0.4 then
showMessage('unpolare Atombindung.')
else if EN > 0.4 then
showMessage('polare Atombindung.')
else if EN >= 1.7 then
showMessage('Ionenbindung.');
end;
end. | _________________ Alexander N.
Neue Bewaffnung Amilo xi2428 T9300
|
|
Boldar
Beiträge: 1555
Erhaltene Danke: 70
Win7 Enterprise 64bit, Win XP SP2
Turbo Delphi
|
Verfasst: Fr 28.11.08 17:49
Es fehlt die obere grenze beim zweitem.
Zuletzt bearbeitet von Boldar am Fr 28.11.08 17:50, insgesamt 1-mal bearbeitet
|
|
GTA-Place
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Fr 28.11.08 17:49
Ich fasse zusammen: Es fehlt das komplette Basiswissen. Angucken: Crashkurs_________________ "Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
|
|
jaenicke
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Fr 28.11.08 17:51
Das hier hilft vermutlich am ehesten...
crashkurs.christian-stelzmann.de
// EDIT:
Da hattest du die selbe Idee 
Zuletzt bearbeitet von jaenicke am Fr 28.11.08 17:51, insgesamt 1-mal bearbeitet
|
|
GericasS
Beiträge: 540
Windows Vista Home Premium
D2010, VisualStudio2008
|
Verfasst: Fr 28.11.08 17:51
@delphi_77 :
Du solltest dir mal folgendes anschauen
www.christian-stelzm...rtikel/crashkurs.htm
Edit : Oh man wieder mal viel zu langsam ._.
_________________ Alexander N.
Neue Bewaffnung Amilo xi2428 T9300
|
|
GTA-Place
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Fr 28.11.08 17:52
Ha, ich war sogar mit dem Edit schneller als ihr alle  _________________ "Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
|
|
Christian S.
Beiträge: 20451
Erhaltene Danke: 2264
Win 10
C# (VS 2019)
|
Verfasst: Fr 28.11.08 18:32
Hallo,
bitte ändere den Titel des Topics, da er wenig über das eigentlich Thema verrät. Hier der entsprechende Absatz aus den Richtlinien:
| 1.2 Beiträge: | | Bitte formuliere den Betreff Deiner Beiträge so, dass andere Mitglieder anhand dieser bereits das eigentliche Thema festmachen können. Beiträge wie etwa "Eine Anfängerfrage" oder "Weiß jemand, wie das geht?" lassen den Leser im Unklaren darüber, was das Thema der Diskussion ist.[...] |
Einfach oben bei Deinem ersten Beitrag auf  oder  klicken und den Titel ändern. Danke Dir!
Viele Grüße,
Christian _________________ Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".
|
|
GTA-Place