Case Frage

[HW764]

Ich hab eine Combobox.
In dieser stehen 5 Strings also 1 2 3 4 und 5.
Text ist 1. Wenn ich also zB. 3 auswähle soll stehen:
"Sie haben nummer 3 ausgewählt", mit den anderen auch.

Gruss HW764

so gehts net:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin

if combobox1.Text := ('1')
then showmessage ('Sie haben Nummer 1 gewählt')
end;

if combobox1.Text := ('2')
then showmessage ('Sie haben Nummer 2 gewählt')
end;

[Die Muhkuh]

Hi,


bitte ändere erstmal den Titel, damit man die besser helfen kann.


Zum Thema:

Delphi-Quellcode:

case Combobox1.ItemIndex of
  0: ShowMessage('Sie haben null gewählt');
  1: ShowMessage('Sie haben 1 gewählt');
...
end;

[edit] Delphitags vergessen :wall: [/edit]

[Mr Whoopee]

Machs so:

Code:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ShowMessage('Du hast "'+ComboBox1.Text+'" ausgewählt!');
end;

MfG Whoopee

[angos]

oder nehm einfach mal die Doppelpunkte raus, bei den If - Abfragen :thumb:

[Die Muhkuh]

Zitat:

Zitat von Mr Whoopee

Machs so:

Code:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ShowMessage('Du hast "'+ComboBox1.Text+'" ausgewählt!');
end;

MfG Whoopee

Wenn er aber noch was machen will, ist Case besser.

[Mr Whoopee]

Zitat:

Zitat von angos

oder nehm einfach mal die Doppelpunkte raus, bei den If - Abfragen :thumb:

lol ^^ stimmt...

:= --> zuweisung
= --> vergleich


MfG Whoopee

[Mr Whoopee]

Zitat:

Zitat von Spider

Zitat:

Zitat von Mr Whoopee

Machs so:

Code:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ShowMessage('Du hast "'+ComboBox1.Text+'" ausgewählt!');
end;

MfG Whoopee

Wenn er aber noch was machen will, ist Case besser.

yo seh ich auch gerade... hm.. als ich geantwortet habe was dei zusatz noch nciht da ;)
naja, wie er es macht ist ja dann seine sache :)

[Mr Whoopee]

Zitat:

Zitat von HW764

gehts net:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin

if combobox1.Text := ('1')
then showmessage ('Sie haben Nummer 1 gewählt')
end;

if combobox1.Text := ('2')
then showmessage ('Sie haben Nummer 2 gewählt')
end;

wieso hast du da noch ein end; hingesetzt, obwohl du kein begin zusätzulich geschrieben hast?