IF-then funktioniert nicht

Fluffy19 · Beiträge: 19

Hi!

Ich wollte, um ein paar Noobs zu verarschen (nichts gegen Noobs, bin selbst ein Noob was Delphi angeht!) ein kleines Programm schreiben.
Wir haben in der Schule jetzt mit Delphi angefangen und deshlab habe ich noch nicht soviel Ahnung!

Also folgender Quellcode:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption := 'Bitte warten!';
if Edit1 <0 then  Canvas.Textout(Form1.Width div 3,Form1.height div 4,'geben Sie eine IP Adresse ein!')
else
Canvas.Textout(Form1.Width div 3,Form1.height div 4,'Verbindung wird aufgebaut...');
Sleep(1 * 1000);
Canvas.Textout(Form1.Width div 4,Form1.height div 2,'Fehler: Die Verbindung wurde durch eine Firewall geblockt!');

end;

Wenn in Edit1 nichts eingetragen ist soll die Meldung geben sie eine Ip Adresse ein! angezeigt werden.
STeht in Edit 1 jedoch etwas soll die Fehlermeldung Verbindung geblockt kommen.

Es wäre nett wenn jemand einem Anfänger auf die Sprünge helfen könnte!

Fluffy

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Apollo · Beiträge: 125 Windows 7 Delphi 3 Prof., Delphi 2005

im Forum!!

Würde ich so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

If edit1.text = '' then
Showmessage('geben sie eine Ip Adresse ein')
else
Sleep(1 * 1000); 
Showmessage('Verbindung geblockt');

habs nicht getestet müsste aber funtzen

Tipp: Stelle den code in Delphi-Tags, erhöht die lesbarkeit :wink:

_________________
Im Zweifelsfall immer das Richtige tun

Ehemaliges Mitglied Erhaltene Danke: 1

Du schreibst alles direkt hintereinander, d.h. es sieht im laufenden Programm so aus, als würde alles gleichzeitig ausgeführt werden (stimmt ja auch beinahe). Und if Edit1 <0 macht keinen Sinn, wenn, dann z.B. mit if Length(Edit1.Text) = 0

Fluffy19 · Beiträge: 19

danke!

funktioniert!

Ehemaliges Mitglied Erhaltene Danke: 1

Du musst prüfen wie viele Zeichen im Edit stehen.Das geht mit length()

Edit: Das kommt davon wenn man mal kurz au Klo geht: 4 Minuten zu spät!

Apollo · Beiträge: 125 Windows 7 Delphi 3 Prof., Delphi 2005

Warum machst du es eigendlich mit TCanvas? Nim doch einfach label1.caption:= 'Dein Text'. Kann man dann besser positionieren und ist auch generel geläufiger als Buchstaben zu zeichnen :mrgreen:

_________________
Im Zweifelsfall immer das Richtige tun

Fluffy19 · Beiträge: 19

gibt es die möglichkeit nach then Showmessage('Geben sie eine Ip Adresse ein!')
noch ein Close einzufügen obwohl danach elso kommt?

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if Bedingung then
  begin
    MachWas;
    MachNochwas;
  end
else
  begin
    MachWasAnderes;
    MachNochwasAnderes;
  end;

Ehemaliges Mitglied Erhaltene Danke: 1

@Apollo: Ich finde das durchaus nützlich.Man kann mit einem sachten Form1.repaint alles wieder wegbekommen.Mit nem Label geht das nicht.Dafür
bietet das Label aber andere Vorteile.

Fluffy19 · Beiträge: 19

if Bedingung then
begin
MachWas;
MachNochwas;

Machnochwas geht leider nicht -> ohne end -> ; nicht erlaubt vor else

mit end-> ; erwartet aber else gefunden ->Abbruch

Ehemaliges Mitglied Erhaltene Danke: 1

Zeig mal Deinen Code.

Fluffy19 · Beiträge: 19

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption := 'Bitte warten!';
If edit1.text = 'Ip Adresse eingeben' then
Showmessage('Geben sie eine Ip Adresse ein!');
close;
end
else
begin
label2.caption:= 'Verbindung wird hergestellt...';
Sleep(2* 1000);
Canvas.Textout(Form1.Width div 4,Form1.height div 2,'Fehler: Die Verbindung wurde durch eine Firewall geblockt!');

end;

Ehemaliges Mitglied Erhaltene Danke: 1

Da fehlt das begin nach dem ersten then.

Edit: Versuche mal deinen Code zu strukturieren.

So:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

begin
  if ich.hunger < 0 then ich.goto(Kuehlschrank) 
  else 
   begin
    ich.siton(stuhl);
    ich.play_or_programming;
   end;
end;

€:Am Ende fehlt auch noch ein end!

Marc. · Verfasst: Mi 29.10.08 18:07

Fluffy19 hat folgendes geschrieben :

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption := 'Bitte warten!';

If edit1.text = 'Ip Adresse eingeben' then
begin
   Showmessage('Geben sie eine Ip Adresse ein!');
   close;
 end
 else
 begin
    label2.caption:= 'Verbindung wird hergestellt...';
    Sleep(2* 1000);
    Canvas.Textout(Form1.Width div 4,Form1.height div 2,'Fehler: Die Verbindung wurde durch eine Firewall geblockt!');
 end;
end;

Da fehlt ein Begin und ein End;

€: Komplett eingerückte Version einen Post unter diesem.

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Caption := 'Bitte warten!';
  If edit1.text = 'Ip Adresse eingeben' then
    begin //<-- fehlte
      Showmessage('Geben sie eine Ip Adresse ein!');
      close;
    end
  else
    begin
      label2.caption:= 'Verbindung wird hergestellt...';
      Sleep(2* 1000);
      Canvas.Textout(Form1.Width div 4,Form1.height div 2,'Fehler: Die Verbindung wurde durch eine Firewall geblockt!');
    end; //<-- fehlte auch
end;

[edit] Gewöhn Dir am besten sofort eine anständige Einrückung an, dann sieht man so etwas gleich auf den ersten Blick [/edit]

Fluffy19 · Beiträge: 19

Jetzt geht alles wie ichs gern hätte!
Einrückung werd ich mir angewöhnen ;-)

Ich bin echt erstaunt, dass man hier so schnell Antworten bekommt!
In anderen Foren wartet man Tage...

Ehemaliges Mitglied Erhaltene Danke: 1

Fluffy19 hat folgendes geschrieben :

Ich bin echt erstaunt, dass man hier so schnell Antworten bekommt!
In anderen Foren wartet man Tage...

Delphi-Forum eben.

Schön ,dass es dir bei uns gefällt! :beer:

Apollo · Beiträge: 125 Windows 7 Delphi 3 Prof., Delphi 2005

j.klugmann hat folgendes geschrieben :

@Apollo: Ich finde das durchaus nützlich.Man kann mit einem sachten Form1.repaint alles wieder wegbekommen.Mit nem Label geht das nicht.Dafür
bietet das Label aber andere Vorteile.

Klar geht das: Label1.caption:= ''. Ist zwar noch da aber trotzdem sieht man nichs.

_________________
Im Zweifelsfall immer das Richtige tun

Marc. · Verfasst: Mi 29.10.08 18:15

Zum Thema Einrücken: Schau Dir diesbezüglich mal das Tool DelForExp an.
Damit kann jedenfalls nichts mehr schief gehen. :zwinker:

Ehemaliges Mitglied Erhaltene Danke: 1

Marc. hat folgendes geschrieben :

Zum Thema Einrücken: Schau Dir diesbezüglich mal das Tool DelForExp an.
Damit kann jedenfalls nichts mehr schief gehen. :zwinker:

Geniales Ding!Das wird mein neuer Standart-Post sein , für Leute die nicht einrücken.

@Apollo:Das ist aber viel aufwendiger! :wink:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme