Mein Programm funkt nicht mehr

[felix96]

Hallo, ich hoffe ich habe das richtige Forum getroffen (sonst soll die frage bitte ins richtige verschoben werden).
Seit ich meinem programm ein mainmenu eingefügt habe funktioniert es nicht mehr.
Es sagte immer button sei falsch.

[theo]

Du hast da lauter doppelte Methoden in Unit1 drin.
Lösche mal alles das doppelte Zeug:

Code: Alles auswählen

{ TForm1 }
 
procedure TForm1.beendenClick(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit2Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit3Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit4Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit5Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit6Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit7Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit8Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.Edit9Change(Sender: TObject);
begin
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
procedure TForm1.Info_helpClick(Sender: TObject);
begin
 
end;
 
procedure TForm1.info_infoClick(Sender: TObject);
begin
 
end;
 
procedure TForm1.Label18Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.MenuItem1Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.sp_openClick(Sender: TObject);
begin
 
end;

[felix96]

was soll ich da jetzt genau löschen ?
bzw. was sind

doppelte Methoden

Wie entstehenn die?

[Scotty]

Etwas Kritik: Deine Nachricht ist ziemlich nachlässig geschrieben (funkt <> funktioniert, Groß-/Kleinschreibung usw.), was ich als Respektlosigkeit verstehe. Bedenke, dass zum Beispiel Theo viel Zeit investiert, Dir zu helfen und erwarten kann, dass Du eine Rechtschreibhilfe benutzt, die Shifttaste drückst und Worte ausschreibst. Außerdem ist Deine Frage inhaltlich kaum beantwortbar: Irgendetwas funktioniert nicht, ist eine sehr schlechte Beschreibung des Problems. Auch die Fehlermeldung "Button ist falsch" habe ich noch nie gelesen. Zudem hast Du Montas Hinweise zur Größe des Dateianhangs nicht beachtet - ein ganzes Projekt, 3MB, wahrscheinlich inklusive ungestrippter Executables! Prinzipiell sollte man Hilfe nur dann einfordern, wenn es unbedingt notwendig ist und Anfängerfragen versuchen selbst zu klären. Mit ein klein wenig Aufwand wirst Du in den Demos und auf den Seiten von Freepascal die entsprechenden Hinweise finden. Vielleicht hilft Dir ansonsten auch die von af0815 verfassten LazSnippets & LazInfos.

[theo]

was soll ich da jetzt genau löschen ?

Mehr als zeigen (siehe Code oben) kann ich's dir nicht.

Wie entstehenn die?

Keine Ahnung.

[creed steiger]

was soll ich da jetzt genau löschen ?
bzw. was sind

doppelte Methoden

Wie entstehenn die?

Das Nachrichtenfenster sagt dir:
unit1.pas(209,18) Error: overloaded functions have the same parameter list
bei der Zeile 209:
procedure TForm1.Button1Click(Sender: TObject);

wenn du die nächste Fehlermeldung:
unit1.pas(122,18) Hint: Found declaration: TForm1.Button1Click(TObject);
anklickst springt der Editor zu Zeile 122:
procedure TForm1.Button1Click(Sender: TObject);

Jetzt sollte dir doch auffallen das hier etwas doppelt deklariert wurde und der Compiler sich nicht schnitzen kann was er verwenden soll.

Du kannst die Fehlermeldungen im Nachrichtenfenster anklicken und der Editor springt zur Zeile die ihn stört.
In diesem Fall wie Theo schon schrub das doppelte Zeug löschen.

[monta]

Etwas Kritik: [...] Zudem hast Du Montas Hinweise zur Größe des Dateianhangs nicht beachtet - ein ganzes Projekt, 3MB, wahrscheinlich inklusive ungestrippter Executables!

Richtig, bitte in der IDE Projekt > Projekt veröffentlichen und dann nur die Quelltexte Zippen. Ich würde dich bitten, das oben zu korrigieren, ansonsten verschwindet der Anhang.

[felix96]

OK, Danke!
Eine Frage noch:
warum kann ich hier immer nur uses2 , und nicht uses3 deklarieren

Code: Alles auswählen

implementation
uses Unit3;
uses unit2;

Sorry, wegen der Rechtschreibung

[felix96]

OK, habe es jetzt selbst gelöst! !!!
habe es jetzt so gemacht:

Code: Alles auswählen

implementation
uses Unit3,unit2;

Danke für eure Hilfe.