fehlermeldung bei combobox! bitte um hilfe

[jordan93]

hai gleich mal !

ich hab ein problem bei einer combobox.
beim doppelklick auf die combobox erscheint folgende fehlermeldung:

could not find source location to add method ComboBox1Change. "END." or INTIALIZATION not found in unit source

ich bitte um hilfe, da es sehr dringend ist

lg euer jordan93

[Klaus01]

Guten Abend,

hast Du die Methode in Dein Projekt nur hinein kopiert?
Oder hast Du die Methode auch mit einem Ereignis Deiner Combobox
verknüpft?

ObjectInspector-> Ereignisse (Events)

Grüße
Klaus

[Bummi]

Schau mal in den Code, manchmal verhaut Delphi sich beim einfügen von Routinen per Objektinspektor.

[jordan93]

wie funktioniert denn das verknüpfen, wenn ich fragen darf?
leider bin ich noch ein laie auf diesem gebiet

lg jordan93

[erik-17]

Du gehst in den Objektinspektor der ComboBox, dann auf den Reiter Ereignisse, dann doppelklickst du auf DoubleClick (oder ähnlich). Wenn dann eine leere Prozedur erscheint, ist was falsch und du must deinen Quelltext (das was er bei doppelklick machen soll) in die Prozedur einfügen. :)

[jordan93]

erik:
ja hab ich jetzt ausprobiert und dabei erscheint die gleiche fehlermeldung wie zuvor

lg jordan3

[erik-17]

Mhm...
weiter kann ich dir jetzt auch nicht helfen, vielleicht kannst du mal etwas Quelltext posten und / oder mal mit Debugger (Programm Zeile für Zeile laufen lassen) prüfen lassen, wo der Fehler liegt

[Bummi]

Dir hat es sicher das .pas zerhauen, zeig es uns doch einfach kurz.

[jordan93]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label1: TLabel;
    Button2: TButton;
    Label7: TLabel;
    Label8: TLabel;
    ComboBox1: TComboBox;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;
  heer: integer;
  zahl: integer;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
heer:=1000;
randomize;
zahl:= random(6)+1;

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);

if zahl= 1 then label1.visible:=true;
if zahl= 2 then label2.Visible:=true;
if zahl= 3 then label3.Visible:=true;
if zahl= 4 then label4.Visible:=true;
if zahl= 5 then label5.Visible:=true;
if zahl= 6 then label6.Visible:=true;

if zahl= 1 then label2.Visible:=false;
if zahl= 1 then label3.Visible:=false;
if zahl= 1 then label4.Visible:=false;
if zahl= 1 then label5.Visible:=false;
if zahl= 1 then label6.Visible:=false;

if zahl= 2 then label1.Visible:=false;
if zahl= 2 then label3.visible:=false;
if zahl= 2 then label4.Visible:=false;
if zahl= 2 then label5.Visible:=false;
if zahl= 2 then label6.Visible:=false;

if zahl= 3 then label1.Visible:=false;
if zahl= 3 then label2.Visible:=false;
if zahl= 3 then label4.visible:=false;
if zahl= 3 then label5.visible:=false;
if zahl= 3 then label6.Visible:=false;

if zahl= 4 then label1.Visible:=false;
if zahl= 4 then label2.visible:=false;
if zahl= 4 then label3.Visible:=false;
if zahl= 4 then label5.Visible:=false;
if zahl= 4 then label6.Visible:=false;

if zahl= 5 then label1.visible:=false;
if zahl= 5 then label2.Visible:=false;
if zahl= 5 then label3.Visible:=false;
if zahl= 5 then label4.Visible:=false;
if zahl= 5 then label6.Visible:=false;

if zahl= 6 then label1.visible:=false;
if zahl= 6 then label2.visible:=false;
if zahl= 6 then label3.Visible:=false;
if zahl= 6 then label4.Visible:=false;
if zahl= 6 then label5.Visible:=false;

if zahl= 1 then label1.Caption:='SCHLACHT DEUTLICH VERLOREN !!! du hast viele kämpfer verloren, da du viel zu unüberlegt agiert hast!!';
if zahl= 2 then label2.Caption:='SCHLACHT VERLOREN!!! du solltest das nächste mal taktischer vorgehen. viele kämpfer hast du jetzt verloren!!!';
if zahl= 3 then label3.caption:='SCHLACHT KNAPP VERLOREN!!! gut gekämpft. aber etwas unüberlegt!!!';
if zahl= 4 then label4.Caption:='SCHLACHT SEHR KNAPP VERLOREN!!! du hast sehr gut gekämpft, aber leider hat dir das nötige glück gefehlt!!!';
if zahl= 5 then label5.caption:='UNENTSCHIEDEN!!! gut gemacht. immerhin noch ein unentschieden erkämpft!!';
if zahl= 6 then label6.caption:='SCHLACHT GEWONNEN!!! du bist der beste!!!';

if zahl= 1 then label8.Caption:=floattostr(heer-500);
if zahl= 2 then label8.caption:=floattostr(heer-400);
if zahl= 3 then label8.caption:=floattostr(heer-300);
if zahl= 4 then label8.Caption:=floattostr(heer-200);
if zahl= 5 then label8.caption:=floattostr(heer-100);
if zahl= 6 then label8.caption:=floattostr(heer+500);

if zahl= 6 then showmessage('ende! du hast gewonnen!');

end;

[erik-17]

OK, und wo kommt jetzt die ComboBox ins Spiel ?!

[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?

[mkinzler]

Füge am Ende mal

Delphi-Quellcode:

end.

ein

[jordan93]

ja is ja auch egal jetzt
ich werd morgen einfach meinen proffessor fragen

[mkinzler]

Das end. fehlt aber auf jedenfall ( beim gepoststen Code)

[jordan93]

ja du hast recht. das hat wirklich gefehlt
hab jetzt die combobox gelöscht, eine neue eingefügt, eine neue procedure eingefügt und jetzt geht das programm. wobei es jetzt keinen sinn ergibt.
aber das werd ich noch hinbekommen

herzlichen dank für die hilfe

lg jordan93