Thema: Delphi Problem mit ComboBox

Einzelnen Beitrag anzeigen

FelixR

Registriert seit: 11. Mai 2010
2 Beiträge
 
#3

AW: Problem mit ComboBox

  Alt 23. Feb 2011, 15:49
Danke für die schnelle Antwort!

Ja das soll schon 'Englisch' heißen ist aber in meinen Programm richtig geschireben


Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
    if ComboBox1.Text = 'Lateinthen
  begin
    ComboBox7.Items.Delete(ComboBox7.Items.IndexOf('Latein'));
    Combobox9.Items.Delete(Combobox9.Items.IndexOf('Latein'));
    end
  else if ComboBox1.Text = 'Französischthen
  begin
    ComboBox7.Items.Delete(ComboBox7.Items.IndexOf('Französisch'));
    ComboBox9.Items.Delete(ComboBox9.Items.IndexOf('Französisch'));
   end
  else if ComboBox1.Text = 'Russischthen
  begin
    ComboBox7.Items.Delete(ComboBox7.Items.IndexOf('Russisch'));
    ComboBox9.Items.Delete(ComboBox9.Items.IndexOf('Russisch'));
  end
  else if ComboBox1.Text = 'Englischthen
  begin
    ComboBox7.Items.Delete(ComboBox7.Items.IndexOf('Englisch'));
    ComboBox9.Items.Delete(ComboBox9.Items.IndexOf('Englisch'));

end;
 end;
Im Moment wird sonst nichts weiter an den Comboboxen verändert.
Und wie gesagt, habe schon mehrmals die Rechtschreibung überprüft.
Hab schon einige andere Leute gefragt, die mir allerdings auch nicht helfen konnten.
(Selbst mein Informatiklehrer weiß nicht an was das liegen könnte)
L.g. Felix
  Mit Zitat antworten Zitat