brauche dringend hilfe bei der combobox !!!

[p80286]

wie wär es hiermit:

Delphi-Quellcode:

procedure TForm1.MyComboboxChange(Sender: TObject);
var
  heer:integer;
begin
  if MyCombobox.text='schwer' then
    heer:=1000
  else
    heer:=500;
end;

Gruß
K-H

[aurikel_Max]

Zitat von p80286:

wie wär es hiermit:

Delphi-Quellcode:

procedure TForm1.MyComboboxChange(Sender: TObject);
var
  heer:integer;
begin
  if MyCombobox.text='schwer' then
    heer:=1000
  else
    heer:=500;
end;

Gruß
K-H

Daran hab ich auch zuerst gedacht - allerdings war ich mir nicht sicher, ob vielleicht am Anfang ein Startwert wie "Schwierigkeit" gesetzt ist - bei einem Klick auf "Weiter" o.ä. hätte er dann automatisch den schwierigen Schwierigkeitsgrad.