4. Das Projekt startet nicht, Fehlermeldungen!!!

Das Projekt startet nicht, Fehlermeldungen!!!

  • C

    Hallo

    ich habe ein Problem:

    das hier ist mein gesamtes Projekt:

    //---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "Befund5.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;

const String DateiName = "Diagnose.txt";
const String SammelName = "PsychoX.txt";

TForm1 *Form1;
TStringList *Diagnose;
TStringList *Psycho;
int Nr; bool Sicher;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  randomize ();
  Diagnose = new TStringList;
  Psycho = new TStringList;
  Diagnose->Add ("Keine Sprechstunde");
  ScrollBar1->Min = 0;
  ScrollBar1->Max = Diagnose->Count - 1;
  Sicher = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Panel1->Caption = "";
  Edit1->Text = "";
  Edit1->SetFocus ();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Psycho->Add (Edit1->Text);
  Nr = random (Diagnose->Count);
  Panel1->Caption = Diagnose->Strings[Nr];
  Sicher = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
  Panel1->Caption = Diagnose->Strings[ScrollBar1->Position];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Oeffnen1Click(TObject *Sender)
{
  try
  {
    if (OpenDialog1->Execute ())
      Diagnose->LoadFromFile (OpenDialog1->FileName);
    ScrollBar1->Max = Diagnose->Count - 1;
  }
  catch (...)
  {
    Application->MessageBox
      ("Fehler beim Öffnen der Datei!", "Achtung!", 0+48);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Speichern1Click(TObject *Sender)
{
  try
  {
    if (SaveDialog1->Execute ())
    {
      Psycho->SaveToFile (SaveDialog1->FileName);
      Sicher = true;
    }
  }
  catch (...)
  {
    Application->MessageBox
      ("Fehler beim Speichern der Datei!", "Achtung!", 0+48);
    Sicher = false;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Drucken1Click(TObject *Sender)
{
  try
  {
    if (PrintDialog1->Execute ())
    {
      RichEdit1->Text = Diagnose->Text;
      RichEdit1->Print ("Diagnose");
    }  
  }
  catch (...)
  {
    Application->MessageBox
      ("Fehler beim Drucken der Datei!", "Achtung!", 0+48);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Ende1Click(TObject *Sender)
{
  int Knopf;
  if (!Sicher)
  {
    Knopf = Application->MessageBox
              ("Alle Eingaben (nochmal) speichern?", "", 3+32);
    if (Knopf == IDYES) Speichern1Click (Sender);
  }
  if (Knopf != IDCANCEL) Close ();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  int Knopf;
  if (!Sicher)
  {
    Knopf = Application->MessageBox
              ("Alle Eingaben (nochmal) speichern?", "", 4+32);
    if (Knopf == IDYES) Speichern1Click (Sender);
  }
}
//---------------------------------------------------------------------------

    Wenn ich das Projekt mal starten will, kommen ca 20 Fehlermeldungen unten:
    Es muss also irgendetwas im Code falsch sein aber was?
    Fällt euch etwas auf.

    Vielen Dank 😉

    Knöpfel David

    0
  • B

    welche fehlermeldungen kommen denn?

    "Funktioniert nicht" ist keine ausreichende Fehlerbeschreibung

    [spam] aha du benutzt ein hans-georg schumann buch *g* [/spam]

    0
  • C

    Blackhawk schrieb:

    welche fehlermeldungen kommen denn?

    "Funktioniert nicht" ist keine ausreichende Fehlerbeschreibung

    [spam] aha du benutzt ein hans-georg schumann buch *g* [/spam]

    ja benutze ich 😉

    naja es kommen z.b.s:

    [C++ Error] Befund5.cpp(13): Multiple declaration for "Form1.

    da gibt es noch viele weitere alle mit Befund5.cpp

    also mit dem button u.s.w

    Viele Grüsse

    Knöpfel David

    0
  • J

    Mach doch mal die Augen auf! Du deklarierst Form1 tatsächlich zweimal.

    Die Fehlermeldungen stehen nicht zum Spass da, du musst sie dir durchlesen und analaysieren und den Fehler beheben. Und das einen nach dem anderen, da nachfolgende Fehlermeldungen oftmals durch vorstehende Fehler verursacht werden.

    Und bitte gewöhne dir die Fullquotes ab, Zitate sollen immer auf das absolut notwendige beschränkt werden.

    0
Anmelden zum Antworten