Flasche eingabe bei Showmessage Befehl

delphineuling · Beiträge: 113 XP wat dat

Also ich will wenn nichts in edit eingegeben wurde, dass der eine Nachricht zeigt.

Delphi-Quelltext

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

procedure TForm1.Button2Click(Sender: TObject);

begin
 if edit1.Text=" then showmessage  ('Geben Sie bitte einen Spieler ein!');
  listbox1.Items.Add(edit1.Text);
   edit1.Clear;

end;

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt

Marco D. · Verfasst: Do 23.02.06 22:52 Titel: Re: Was ist hier falsch?

delphineuling hat folgendes geschrieben:

Also ich will wenn nichts in edit eingegeben wurde, dass der eine Nachricht zeigt.

markieren

Delphi-Quelltext

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

procedure TForm1.Button2Click(Sender: TObject);

begin
 if edit1.Text=" then showmessage  ('Geben Sie bitte einen Spieler ein!');
  listbox1.Items.Add(edit1.Text);
   edit1.Clear;

end;

So geht das

markieren

Delphi-Quelltext

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

procedure TForm1.Button2Click(Sender: TObject);

begin
 if edit1.Text='' then showmessage('Geben Sie bitte einen Spieler ein!')
 else listbox1.Items.Add(edit1.Text); //else muss hin, weil sonst würde er auch einen Leerstring //eintragen
   edit1.Clear;

end;

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Warum funktionieren denn hier die Tags nicht :shock:

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

jakobwenzel · Verfasst: Do 23.02.06 22:56 Titel: Re: Was ist hier falsch?

delphineuling hat folgendes geschrieben:

Also ich will wenn nichts in edit eingegeben wurde, dass der eine Nachricht zeigt.

markieren

Delphi-Quelltext

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

procedure TForm1.Button2Click(Sender: TObject);

begin
 if edit1.Text=" then showmessage  ('Geben Sie bitte einen Spieler ein!');
  listbox1.Items.Add(edit1.Text);
   edit1.Clear;

end;

Falsche Anführungszeichen beim Vergleich!
Und ich denke kaum, dass der leere Name dem Edit-Feld hinzugefügt werden soll. Folglich wird ein Else-Zweig beötigt:

markieren

Delphi-Quelltext

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

procedure TForm1.Button2Click(Sender: TObject);

begin
 if edit1.Text='' then showmessage  ('Geben Sie bitte einen Spieler ein!')
  else begin
  listbox1.Items.Add(edit1.Text);
   edit1.Clear;
 end;
end;

//Edit: Mist, viel zu langsam
//Edit2: @Koller: Das edit1.Clear sollte auch mit ins else rein, weils sonst unsinnig ist, das Editfeld zu leeren.

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

Danniolo · Beiträge: 693

Weil Koller wohl schon etwas müde ist...

Marc. · Verfasst: Do 23.02.06 22:56 Titel: Re: Was ist hier falsch?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button2Click(Sender: TObject);
begin
 if edit1.Text = '' then showmessage('Geben Sie bitte einen Spieler ein!');
  listbox1.Items.Add(edit1.Text);
   edit1.Clear;
end;

koller koller.. hast was übersehen! Im Qtext stand " anstelle von ' ' :lol:

Außerdem würde er dann keinen leerstring adden...auch wenn da kein else steht

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt

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

Habe hier ein paar ziemlich sinnlose Postings gelöscht. Waren ein paar Leute dabei, die gerne in der SB herumalbern. Bitte belast es auch dort, ja?

@delphineuling: Spendier Deinem Thread doch bitte einen anderen Titel. der jetzige sagt nicht allzu viel über den Inhalt aus. Dank Dir! :-)

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

delphineuling · Beiträge: 113 XP wat dat

Ah stimmt jetzt leutet es mir auch ein das dort diese Zeichen hin müssen ' '.
Ist ja auch logisch weiß nicht wie ich auf die " gekommen bin.
Aber danke!
Das schnellste Forum das ich kenne und das mit den wenigsten doofen Antworten!
R-E-S-P-E-C-T

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Es sollte schon '' und nich ' ' sein.. sonst bringt das ganze System ja nichts.. denn dann kann man ja wieder einen leeren String adden

greetz

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

Marc. · Verfasst: Do 23.02.06 23:10

oh.. mein fehler: bin auch schon etwas müde...du hast natürlich recht gehabt

da gehört ein else hin, sonst addet er natürlich einen leer-string

delphineuling · Beiträge: 113 XP wat dat

Ist der Titel so besser?
Und soll ich jetzt doch " anstatt '' da einstezen?
Weil geschrieben wurde das ich mit '' doch Leerstrings adden kann, aber damit kann ich auch keine adden.

jakobwenzel · Verfasst: Do 23.02.06 23:24

delphineuling hat folgendes geschrieben:

Und soll ich jetzt doch " anstatt '' da einstezen?
Weil geschrieben wurde das ich mit '' doch Leerstrings adden kann, aber damit kann ich auch keine adden.

" führt zu einem Compilerfehler, also würde ich '' nehmen. Das mit den Leerstrings sollte sich eigentlich auf das fehlende Else bezogen haben.

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

du hast mich falsch verstanden.. du sollst schon das zeichen ' nehmen, doch so wie du das geschrieben hast dachte ich du willst die abrage machen ob ein leerzeichen drinne steht, also ' '

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

delphineuling · Beiträge: 113 XP wat dat

Ich füge mal meinen Quelltext ein und dann sagt ihr mir was ich noch ändern sollte, denn ich bin gerade ein bisschen verwirrt!

markieren

Delphi-Quelltext

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

procedure TForm1.Button2Click(Sender: TObject);
 begin
  if edit1.Text='' then showmessage  ('Geben Sie bitte einen Spieler ein!')
   else begin
    listbox1.Items.Add(edit1.Text);
    edit1.Clear;
   end;
 end;

Moderiert von Gausi: Code- durch Delphi-Tags ersetzt

jakobwenzel · Verfasst: Do 23.02.06 23:37

Der Quelltext ist korrekt. Außer, dass sich über die Einrückung streiten lässt. Aber da hat jeder seinen eigenen Stil.

P.S.: Es sieht schöner aus, wenn die Quelltexte mit [delphi]-Codes umschließt und nicht mit [code]-Blöcken.

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme