[Delphi] meine exe will sich nicht offnen

Titus91 · 21. März 2007

meine exe will sich nicht offnen

program meinprogramm;

{$APPTYPE CONSOLE}

uses
SysUtils;

type Freund = record
name : string;
alter : integer;
wohnort : string;
end;

type pinguin = record
bluub : string;
gefangene : integer;
Fische : string;
end;

var
pinguine : Array [0..9] of pinguin;

var
freunde : Array [0..9] of Freund;

begin
freunde[0].name := 'franz';
freunde[0].alter := 22;
freunde[0].wohnort := 'Castrop-Rauxel';

pinguine[0].bluub := 'Alaska';
pinguine[0].gefangene := 13;
pinguine[0].Fische := 'Fische';

ReadLn;

end.

hab ich was falsch programmiert?

Wen ich auf RUN F9 gehe
dan kommt

Thread Start: Thread ID: 3516. Process meinprogramm.exe (2720)
Process Start: C:\Documents and Settings\Administrator\My Documents\dada\meinprogramm.exe. Base Address: $00400000. Process meinprogramm.exe (2720)
Module Load: meinprogramm.exe. Has Debug Info. Base Address: $00400000. Process meinprogramm.exe (2720)
Module Load: ntdll.dll. No Debug Info. Base Address: $7C900000. Process meinprogramm.exe (2720)
Module Load: KERNEL32.dll. No Debug Info. Base Address: $7C800000. Process meinprogramm.exe (2720)
Thread Start: Thread ID: 3352. Process meinprogramm.exe (2720)
Module Load: OLEAUT32.dll. No Debug Info. Base Address: $77120000. Process meinprogramm.exe (2720)
Module Load: msvcrt.dll. No Debug Info. Base Address: $77C10000. Process meinprogramm.exe (2720)
Module Load: USER32.dll. No Debug Info. Base Address: $77D40000. Process meinprogramm.exe (2720)
Module Load: GDI32.dll. No Debug Info. Base Address: $77F10000. Process meinprogramm.exe (2720)
Module Load: ADVAPI32.dll. No Debug Info. Base Address: $77DD0000. Process meinprogramm.exe (2720)
Module Load: RPCRT4.dll. No Debug Info. Base Address: $77E70000. Process meinprogramm.exe (2720)
Module Load: ole32.dll. No Debug Info. Base Address: $774E0000. Process meinprogramm.exe (2720)
Module Load: UNKNOWN_MODULE_8. No Debug Info. Base Address: $10000000. Process meinprogramm.exe (2720)
Module Load: LVPrcInj.dll. No Debug Info. Base Address: $00980000. Process meinprogramm.exe (2720)
Thread Exit: Thread ID: 3352. Process meinprogramm.exe (2720)

was mache ich falsch?

Anzeige

Rushh0ur · 21. März 2007

AW: meine exe will sich nicht offnen

Das sind informationen zu dem Programm wenn es geladen ist.
Eher unwichtig.

Es geht doch an, was geht den nicht oder was soll es den machen?
Es macht nur das was es machen soll. ^^

Mfg

Rushh0ur

Fanatic · 21. März 2007

AW: meine exe will sich nicht offnen

program meinprogramm;

interface

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

type Freund = record
name : string;
alter : integer;
wohnort : string;
end;

type pinguin = record
bluub : string;
gefangene : integer;
Fische : string;
end;

var pinguine : Array [0..9] of pinguin;
Freunde : Array [0..9] of Freund;

implementation

procedure FreundErstellen;
var lauf: integer;
begin
for lauf:= 1 to 9 do
begin
Freunde[lauf].name := 'franz';
Freunde[lauf].alter := 22;
Freunde[lauf].wohnort := 'Castrop-Rauxel';
end;
end;

procedure PinguinErstellen;
var lauf: integer;
begin
for lauf:= 1 to 9 do
begin
pinguine[lauf].bluub := 'Alaska';
pinguine[lauf].gefangene := 13;
pinguine[lauf].Fische := 'Fische';
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FreundErstellen;
PinguinErstellen;
end;

end.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

_________

Ein Array beginnt glaub ich erst bei 1! Wenn du also freunde[0].name := 'franz' machst, gehts net. Wenn schon freunde[1].name := 'franz' (Bin mir net genau sicher)

tHe dUdE · 21. März 2007

AW: meine exe will sich nicht offnen

Falsch. Der erste Index in einem Array ist immer 0!

IfindU · 21. März 2007

AW: meine exe will sich nicht offnen

Sieht mir extrem nach dem Tut-Video aus, was auf dem Board verlinkt wurde.
Starte es doch einfach normal per Konsole.

PS. Du brauchst nur ein Var wenn ich mich nicht irre

Und auf der Seite bei der es die Videos gibt, gibt es auch die vollen Quelltexte. Lad dir es runter und guck ob es da immer noch passiert, so weißte ob es an deinem Text oder einfach an Delpih liegt.

Rushh0ur · 21. März 2007

AW: meine exe will sich nicht offnen

Das stimmt leider auch nicht; kommt drauf an wie man das Array deklariert.

In diesem Fall ist es 0, weil er das Array auch mit 0 starten gelassen hat:

Code:

Array [0..9] of ...

Wenn man es aber zb. so deklariert:

Code:

Array [1..10] of

Dann hat der erste Eintrag auch den Index 1.

Der ganze Quellcode ist ohne Fehler, es geht ja auch an;
es spuckt nur nichts raus und zeigt eine leere Consolenfenster an.

Mfg Rushh0ur

asdrexit · 21. März 2007

AW: meine exe will sich nicht offnen

program meinprogramm;

interface

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

type Freund = record
name : string;
alter : integer;
wohnort : string;
end;

type pinguin = record
bluub : string;
gefangene : integer;
Fische : string;
end;

var pinguine : Array [0..9] of pinguin;
Freunde : Array [0..9] of Freund;

implementation

procedure FreundErstellen;
var lauf: integer;
begin
for lauf:= 1 to 9 do
begin
Freunde[lauf].name := 'franz';
Freunde[lauf].alter := 22;
Freunde[lauf].wohnort := 'Castrop-Rauxel';
end;
end;

procedure PinguinErstellen;
var lauf: integer;
begin
for lauf:= 1 to 9 do
begin
pinguine[lauf].bluub := 'Alaska';
pinguine[lauf].gefangene := 13;
pinguine[lauf].Fische := 'Fische';
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FreundErstellen;
PinguinErstellen;
end;

end.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

_________

Ein Array beginnt glaub ich erst bei 1! Wenn du also freunde[0].name := 'franz' machst, gehts net. Wenn schon freunde[1].name := 'franz' (Bin mir net genau sicher)

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

-Ein Programm kann kein Interface oder Implementationen haben.
-Der PC fängt bei Null an zu zählen

Titus91 · 22. März 2007

AW: meine exe will sich nicht offnen

es zeigt einfach nix in der console an
ist das bei euch auch so wen ihr es da rein kopiert?

Rushh0ur · 22. März 2007

AW: meine exe will sich nicht offnen

Es wird auch nichts anzeigen:
den Strukturen werden zwar die Namen, etc zugewiesen und dann wartet das Programm auf eine Eingabe und mehr macht das Programm auch nicht.

Du musst etwas Programmieren, damit es auch etwas ausgibt:

Code:

program meinprogramm;

{$APPTYPE CONSOLE}

uses
SysUtils;

type Freund = record
name : string;
alter : integer;
wohnort : string;
end;

type pinguin = record
bluub : string;
gefangene : integer;
Fische : string;
end;

var
pinguine : Array [0..9] of pinguin;

var
freunde : Array [0..9] of Freund;


begin
freunde[0].name := 'franz';
freunde[0].alter := 22;
freunde[0].wohnort := 'Castrop-Rauxel';

pinguine[0].bluub := 'Alaska';
pinguine[0].gefangene := 13;
pinguine[0].Fische := 'Fische';

[B]WriteLn(freunde[0].name, ' ist ', freunde[0].alter, ' Jahre alt und wohnt in ', freunde[0].wohnort);
WriteLn('pinguine[0].bluub = ', pinguine[0].bluub);
WriteLn('pinguine[0].gefangene = ', pinguine[0].gefangene);
WriteLn('pinguine[0].Fische = ', pinguine[0].Fische);[/B]
[COLOR="Blue"]//Durch solche Zeilen wird auch etwas Im Consolenfenster ausgegeben[/COLOR]

ReadLn;

end.

Mfg

Rushh0ur

Halloweenracer · 22. März 2007

AW: meine exe will sich nicht offnen

das is doch aber turbo paskal? delphi würde das doch gar nicht lesen?

mfg
[/FONT]

Rushh0ur · 22. März 2007

AW: meine exe will sich nicht offnen

Doch das tut Delphi (7) auch.

Jedoch gibt es bei dieser Versin (7) keine möglichkeit ein Consolen Projekt direkt zu erstelln.

Man muss eine Applikation erstellen und dann einfach in der "program"-Unit die
Compilerderektive {$APPTYPE CONSOLE} angeben und die unötigen Units und Formulare
entfernen.

Also das geht auf jeden Fall, wieso soll das nicht gehen?
"WriteLn" ist in der System-Unit enthalten und man kann diese auch benutzen.

Mfg

Rushh0ur

asdrexit · 22. März 2007

AW: meine exe will sich nicht offnen

Delphi wurde aus Pascal entwickelt, der Compiler kann also natürlich auch diesen Code umsetzten.

Datei->Neu->Consolenanwendung !

Ob das Programm eine Consolenanwendung oder eine GUI-Anwendung wrid, hängt einfach nur von der Zeile "{$APPTYPE CONSOLE}" bzw "{$APPTYPE GUI}" ab

Fanatic · 22. März 2007

AW: meine exe will sich nicht offnen

In Version 6 kannste z.B. direkt Konsolen Anwendung erstellen

Nützliche Suchen

[Delphi] meine exe will sich nicht offnen

Videos zum Themenbereich