Hej!
Det är så att jag har 4st olika alternativ som man kan välja genom dropdown list.
Jag vill att man ska kunna välja ett alternativ och klicka på en knapp som heter "kör" så ska knappen utföra det man vill göra.
Men jag får det inte att fungera.
Jag får inge error i source koden, så det är något som är mysko.

Någon som kan se vad jag har gjort fel? Jag kör delphi 2007.
Men iaf så här ser min knapp kod ut:


procedure TForm2.Button1Click(Sender: TObject);
begin
if Combobox1.Itemindex=0 then
begin
{kod}
end
else
if Combobox1.Itemindex=1 then
begin
{kod}
end
else
if Combobox1.Itemindex=2 then
begin
{kod}
end
else
if Combobox1.Itemindex=3 then
begin
{kod}
end
else
if Combobox1.Itemindex=4 then
begin
Form4.ShowModal;
end
end;

Det borde fungera! Du kan använda case istället för if. begin end är onödig om satsen bara är en rad som i fallet då Combobox1.Itemindex är 4.

procedure TMainfrm.Button1Click(Sender: TObject);
begin
case Combobox1.Itemindex of
0:
begin
{kod}
end;
1:
begin
{kod}
end;
2:
begin
{kod}
end;
3:
begin
{kod}
end;
4:
Form4.ShowModal;
end;
end;

Det skall fungera utan problem, och case är smidigare att använda i just det fallet.
Finns det mer kod du kan visa i den proceduren?