íf- then-else klappt nicht

Dreas · Hält's aus hier Beiträge: 14

Hallo,

ich bin blutiger Delphi-Anfänger, deshalb weiss ich auch nicht ,ob ich in dieser Sektion richtig bin. Aber ich frag einfach mal.

Ich hab mir ein kleines Programm zusammen gebastelt, das Celsius in Fahrenheit umrechnet. Allerdings soll bei über 200 Grad Fahrenheit kein Ergebnis, sondern eine Meldung erscheinen. Beides soll in einem edit-Fenster angezeigt werden. Nur mit jeweils anderer Schriftgröße und -Farbe. Ohne die Änderung bezüglich der Schrift klappt aber alles.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

begin
c:=strtofloat(edit1.Text);
z:=32+C*9/5;
if z>=200 then
begin
edit2.AutoSize:=false;
edit2.Font.Size:=10;
edit2.Font.Color:=clred;
edit2.text:=('Wert nicht zulässig');
end
else
edit2.AutoSize:=false;
edit2.font.size:=14;
edit2.Font.color:=clwindowtext;
edit2.text:=floattostr(z);
end;

Was mache ich falsch?
Wenn ich das so mache, wird auch gar nicht mehr der "Wert nicht zulässig"-Text angezeigt.

Moderiert von Klabautermann: Code/Delphi-Tag Mischmasch in Delphi-Tag geändert. Topic verschoben.

Ehemaliges Mitglied Erhaltene Danke: 1

Dreas hat folgendes geschrieben:

ich bin blutiger Delphi-Anfänger,

Was ist das eigentlich? Eine Seuche? Warum sind alle Anfänger immer blutig? :roll:

Zitat:

deshalb weiss ich auch nicht ,ob ich in dieser Sektion richtig bin.

Nein.

Bringen wir mal ein bisschen Ordnung in deinen Code rein:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

c:=strtofloat(edit1.Text);
z:=32+C*9/5;
if z>=200 then
begin
  edit2.AutoSize:=false;
  edit2.Font.Size:=10;
  edit2.Font.Color:=clred;
  edit2.text:=('Wert nicht zulässig');
end else
  edit2.AutoSize:=false;

  edit2.font.size:=14;
  edit2.Font.color:=clwindowtext;
  edit2.text:=floattostr(z);

end;

Siehst du auch, was ich sehe?

Keldorn · Verfasst: Di 07.10.03 11:21

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

begin 
c:=strtofloat(edit1.Text); 
z:=32+C*9/5; 
if z>=200 then 
  begin 
    edit2.AutoSize:=false; 
    edit2.Font.Size:=10; 
    edit2.Font.Color:=clred; 
    edit2.text:=('Wert nicht zulässig'); 
  end 
else 
  begin  -<<<<<< fehlt
    edit2.AutoSize:=false; 
    edit2.font.size:=14; 
    edit2.Font.color:=clwindowtext; 
    edit2.text:=floattostr(z); 
  end;

da fehlt ein begin .

in deiner zusammenstellung würde

markieren

Delphi-Quelltext

1:
2:
3:

    edit2.font.size:=14; 
    edit2.Font.color:=clwindowtext; 
    edit2.text:=floattostr(z);

immer angezeigt werden

edit: ach manno, zu langsam

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Auch wenn das Problem bereits gelöst ist, könnte Dir dieses Tutorial durchaus noch nützlich sein.

MfG
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Dreas · Hält's aus hier Beiträge: 14

Vielen Dank Leute,

das hat prima geklappt. Ich hab auch schon viel gelernt heute und fast alles hinbekommen, was ich mir im Bezug auf mein Progrämmchen vorgestellt hab.
Eine Sache ist mir aber noch rätselhaft.
Ich möchte ein kleines Bild einfügen und das sollte sich, wenn die Maus drüber ist, ändern. Ebenso wenn man mit der Maus auf das Bild klickt. Beim klick soll dann eine Internetadresse mit dem Standardbrowser geöffnet werden.
Ein Bild (bmp) hab ich schon eingefügt mit Hilfe von timage.
Wie füge ich die anderen beiden Bilder hinzu und richte alles mit onmousemove und onclick wie gewünscht ein?
Das Verlinken habe ich bereits mit shellexecute gelöst. Fehlt nur noch die richtige visuelle Unterstützung durch den Bilderwechwel dazu.
Hab schon hier und anderweitig nach ner Lösung gesucht, aber geholfen hats leider nicht.

p.s: ich blute nich mehr :lol:

Keldorn · Verfasst: Di 07.10.03 15:10

Dreas hat folgendes geschrieben:

Ich möchte ein kleines Bild einfügen und das sollte sich, wenn die Maus drüber ist, ändern. Ebenso wenn man mit der Maus auf das Bild klickt. Beim klick soll dann eine Internetadresse mit dem Standardbrowser geöffnet werden.
Ein Bild (bmp) hab ich schon eingefügt mit Hilfe von timage.
Wie füge ich die anderen beiden Bilder hinzu und richte alles mit onmousemove und onclick wie gewünscht ein?
Das Verlinken habe ich bereits mit shellexecute gelöst. Fehlt nur noch die richtige visuelle Unterstützung durch den Bilderwechwel dazu.
Hab schon hier und anderweitig nach ner Lösung gesucht, aber geholfen hats leider nicht.

neue Frage, neuer thread

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme