Setup-Programm ein MUSS ?

[C64-Flo]

Habe folgendes Problem:

Vor ca 2 Wochen habe ich mit Delphi angefangen, und meine erster schöne ´herumprobier´-exe ist nun auch fertig.
Leider ist mein Rechner der einzige, auf dem sie läuft.

Nun habe ich vermutet, dass es an der DB-nutzung liegen könnte.
(ich nutze allerdings keine, sondern nur eine handvoll text-dateien)
hmmmm......
Bei meinen Versuchen dem Problem auf den Zahn zu fühlen bin ich über den ´InstallShield Express´ gestolpert, der ja meinem Delphi beilag.
MUSS ich auf jeden Fall eine setup-Datei erstellen, um mein Programm auf anderen Rechnern zum laufen zu bringen?
(Nach meinem ersten crash-kurs-versuch gestern nacht um 1 endete mein erste setup-test mit 2 internen fehlern :lol: )


EiEiEi :wall:

[sakura]

Hat Deine ´herumprobier´-exe eine Fehlermeldung gebracht, mit der man etwas anfangen kann?

...:cat:...

[C64-Flo]

Nein...

Auf dem Laptop passierte einfach garnichts... habe dann das komplette Delphi darauf installiert, doch das programm wollte immer noch nicht starten.
:cry:
Auf einem benachbarten PC (mit XPpro wie bei mir) kam einfach die Fehlermeldung:
"Windows hat ein Problem festgestellt...exe wird beendet...Problembericht an microsoft senden? usw"
:cry:

[C64-Flo]

Das ist so seltsam, da die exe auf dem Rechner, auf dem sie entstand ja völlig einwandfrei läuft...? :wiejetzt:

[Tom]

Ich denke mal, dass Du dem Volk Source spendieren must.

[Tom]

An anderer Stelle hast Du ja schon etwas von festen Pfaden erzählt. Suche mal nach Application.Exename bzw. ParamStr(0).

[C64-Flo]

Gerne... aber ich fürchte, das würde den Rahmen sprengen...
Immerhuin sind es ja insgesamt ca 20 Units, die zT durch meinen (fürchterlich komplizierten & speicherverschwenderische :mrgreen: ) Programmierstil auch nicht zu knapp sind...

Es wäre ja schon hilfreich, wenn ich wüsste, woran ich da im Grunde bin...
Also brauche ich grundsätzlich ein setup, oder nicht?

Ich meine...wenn JA, dann hat sich die sache eh erledigt, da ich die exe+Daten einfach so auf den anderen Rechner kopiert hatte.
Wenn NEIN....was dann?

hier mal ein auszug aus der text-datei-Nutzung (die meiner vermutung nach das Problem macht):

Delphi-Quellcode:

procedure monsterinit;
var i,anzahl:integer;

    begin
    anzahl:=0;
    AssignFile(datei, 'c:\add\data\data2.txt');
    Reset (datei);
    while not (Eof(datei)) and (anzahl<monsterzahl) do begin
    inc(anzahl);
    readln (datei, monname[anzahl]);
    for i:=1 to 11 do readln (datei, monster[anzahl,i]);
    end;
    CloseFile(datei);
    end;

:spin:

[himitsu]

Nicht nur den Source zeigen.

Für den Anfang währe es auch mal gut, wenn du uns sagst, was dein Prog so macht / machen soll...

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[C64-Flo]

Ok. dann mal der reihe nach:

Es handelt sich im grunde um ein einfaches Monster-Hack $ Slay hauptsächlich auf Text-basis.

dh es werden zufallsmonster ausgewürfelt, gegen die der spieler dann nacheinander mit seinm charakter (nach AD&D-regeln :mrgreen: ) kämpfen (würfeln) darf.

Untermalt wird die sache durch .jpg - und .mp3 -Dateien, die dem ganzen einen schönen Rahmen geben.

( :lol: nettes remake eines meiner lieblings-C64-Programme von damals.. :zwinker: )

Die "Datenbanken" wenn man so will, sind einfache text-dateien, aus denen das programm die werte der monster, ausrüstungsgegenstände usw liest.
(werden alle am anfang initialisiert).

das ist eigentlich schon alles... :angle2:

[himitsu]

Von festen Pfaden solltest du besser abstandnehmen. Bei mir ist zum Beispiel alles auf K und da hätte dein Prog einige Probleme

Und eine kleine Fehlerbehanlung tut auch nicht weh, so bricht das Prog wenigstens nicht gleich ab, wenn eine Datei fehlt.

Wenn du das so änderst, wird "data2.txt" im selben Verzeichnis, in dem dein Prog ist gesucht.

Delphi-Quellcode:

AssignFile(datei, ExtractFilePath(ParamStr(0)) + 'data2.txt');
{$I-}  Reset(datei);  {$I+}
If IOResult = 0 Then Begin

  {Daten lesen}

  CloseFile(datei);
End;

Add:
Dafür sind 20 Units schon krass.

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif