fehlermeldung bei combobox! bitte um hilfe

[Bummi]

Entweder ist das der Code vor dem Doppelklickfehler oder in Deiner Combobox1 ist im Objektinspektor im OnChange ComboBox1Change eingetragen, welches im Code fehlt, einfach mal entfernen und nochmals Doppelklicken auf OnChange.

[mkinzler]

-Verwende bitte Code-Tags und formatiere den Code richtig (Einrückungen)
-Man kann bei einem

Delphi-Quellcode:

If

auch mehrere Befehle im then oder else-Teil packen, wenn man diese in einen Codeblock packt (

Delphi-Quellcode:

begin

..

Delphi-Quellcode:

end

)
-Hier würde sich aber auch ein

Delphi-Quellcode:

case

anbieten
-Hier machts du 2.mal das selbe, die einzelnen Abfragen sind überflüssig:

Delphi-Quellcode:

if zahl= 1 then Label7.Caption:='1';
if zahl= 2 then label7.Caption:='2';
if zahl= 3 then label7.caption:='3';
if zahl= 4 then label7.caption:='4';
if zahl= 5 then label7.caption:='5';
if zahl= 6 then label7.Caption:='6';
Label7.Caption:= inttostr(zahl);

[Klaus01]

Hallo,

es trägt nicht unbedingt zu Deiner Problemlösung bei,
aber vielleicht hilft es, wenn Du den Code ein wenig
anders strukturierst?


Grüße
Klaus

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  heer:=1000;
  // randomize;   bitte nur einmal beim Programmstart aufrufen
  zahl:= random(6)+1;
 
  label7.caption := intToStr(zahl);


  case zahl of
    1: begin
         label1.visible := true;
         label2.Visible:=false; 
         label3.Visible:=false;
         label4.Visible:=false;
         label5.Visible:=false;
         label6.Visible:=false;
         label1.Caption:='SCHLACHT DEUTLICH VERLOREN !!! Du hast viele Kämpfer verloren, da du viel zu unüberlegt agiert hast!!';
       end;
    2: begin 
        ..
       end; 
    3: begin
        ..
       end;
  end;

end;

[jordan93]

ja das ist ja das problem
ich kann ja keinen quelltext schreiben, weil die fehlermeldung dauernd kommt

[haentschman]

...schau dir nochmal Beitrag #11 an. Ich denke auch, daß das die Ursache ist.

[jordan93]

ja das ist der text vor dem doppelklickfehler

[mkinzler]

Im Code existiert keine Methode für onChange. Steht etwas in der Ereignisseite des Objekt Inspektors? Dann lösche das raus und mache nochmal einen Dopellklick drauf

[Bummi]

@Klaus01
wenn schon dann:
for I := 1 to 6 do TLabel(FindComponent('Label'+IntToStr(i))).visible := Zahl=i;

[jordan93]

mkinzler:

das hab ich schon probiert
aber da steht nichts im object inspector
daher kann ich auch nichts rauslöschen und beim doppelklick kommt wieder die gleiche melduung

[Bummi]

Zitat:

ja das ist der text vor dem doppelklickfehler

wie sollen wir Dir damit helfen?