Projekt Startet nicht

[darkrose]

Hallo ich habe ein Problem.
Ich habe mit Delphi ein Programm mit einem Formular geschrieben, welches sich aber nicht starten lässt.
Wenn ich auf den Startbutton klicke dann wird zwar eine exe erstellt aber nicht gestartet bzw habe ich das Gefühl, dass die Anwendung wieder ganz schnell geschlossen wird.

Ich habe schon recherchiert aber keine lösung gefunden.

Wenn ich eine Konsolenanwendung schreibe, dann funktioniert das starten einwandfrei.
Die exe des Projektes mit oberfläche lasst sich auch nicht seperat starten.
Bei älteren Projekten lässt sich die exe zwar seperat starten aber wenn ich diese projekte auch direkt über delphi starten will funktioniert dies auch nicht.
Ich bekomme auch keine fehlermeldung angezeigt.

Bitte helft mir.

[EWeiss]

Mal versucht einfach ein leeres Projekt zu kompilieren?
Lässt sich das dann starten ?

gruss

[Lemmy]

verwendest Du evtl. irgend welche Bibliotheken die auf dlls angewiesen sind?
was passiert wenn du die kompilierte exe in einer Konsole öffnest (also cmd starten, dort in das Verzeichnis mit der exe gehst und diese dann startest)? - kommen da ggf. eine Fehlermeldung?
Hast Du vielleicht in der .dpr Änderungen durchgeführt?

[uligerhardt]

Schau mal, ob du in den Projektoptionen ein Hauptformular eingetragen hast.

[darkrose]

Hallo,
vielen Dank für eure schnellen antworten.

@EWeiss: Also wenn ich ein leeres Projekt Kompiliere dann funktioniert es.

@Lemmy: Ich verwende eigentlich keine solche Bibliotheken und wenn ich es über die cmd ausführe gibt es keine Fehlermeldung.

@uligerhardt: Ich habe mal geschaut in den Projektoptionen ist kein Hauptformular angegeben, aber ich kann auch keins auswählen. (Ich habe zwei units... mit zwei formularen).

[darkrose]

Okay also ich weiß nicht wie aber iwie wusste das projekt nicht welche units zu ihm gehören habe es geschafft das ganze zu verändern und kann jetzt auch ein hauptformular auswählen... scheint jetzt zu funktionieren ... muss nur noch meine fehlerbeheben werde mich noch mal melden ob es dann wirklich funktioniert. Danke :)

[uligerhardt]

Zitat:

Zitat von darkrose (Beitrag 1348474)

Okay also ich weiß nicht wie aber iwie wusste das projekt nicht welche units zu ihm gehören habe es geschafft das ganze zu verändern und kann jetzt auch ein hauptformular auswählen...

Deswegen hab ich gefragt. Mir werden gelegentlich, ohne dass ich es bewusst veranlasse, Forms aus dem Projekt entfernt. Und dann hab ich genau deinen Effekt.

[darkrose]

da dieses Problem ja behoben ist habe ich leider noch eins...
ich bekomme den Fehler undefinierte Bezeichner und ich verstehe einfach nicht wieso.
Den Fehler bekomme ich für die Variablen autor und onr. Könnt ihr mit noch einmal helfen?

Code:

unit edit;

interface

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

type
  Tform2 = class(TForm)
    btnhinz: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edname: TEdit;
    Query1: TQuery;
    Tnoten: TTable;
    DBnoten: TDatabase;
    DSnoten: TDataSource;
    DSQuery: TDataSource;
    ed1: TEdit;
    edonr: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure btnhinzClick(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  form2: Tform2;

implementation

uses anzeige;
{$R *.dfm}

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



procedure Tform2.btnhinzClick(Sender: TObject);
begin
  name:= edname.Text;
  autor:= ed1.Text;
  onr := edonr.Text;
   Query1.SQL := 'INSERT INTO Lnoten (titel, autor, oid)'  +
   'VALUES (' + name + ', ' + autor +',' + StrToInt(onr) + ')';
end;

end.

[himitsu]

Diese Variablen sind auch nirgendwo deklariert, also ist der Fehler korrekt. :angle:

Name knallt nicht, weil "zufällig" ein Property "Name" an der TForm (also Self.Name) existiert. :stupid:




Und wer haut ihm jetzt noch für die möglichen SQL-Injektions paar auf die Finger?
Egal, ich schreib dann einfach mal

Delphi-Quellcode:

'', '', ''); DROP TABLE Lnoten; --

in das Name-Edit rein. :twisted:

[Darlo]

Du hast die Variablen nicht deklariert....

Delphi-Quellcode:

procedure Tform2.btnhinzClick(Sender: TObject);
var
  myname, autor, onr: String;
begin
  myname:= edname.Text;
  autor:= ed1.Text;
  onr := edonr.Text;
   Query1.SQL := 'INSERT INTO Lnoten (titel, autor, oid)' +
   'VALUES (' + myname + ', ' + autor +',' + StrToInt(onr) + ')';
end;

Und "name" ist ein reservierter Begriff, diesen darfst Du nicht für Variabelen, etc. benutzen.