Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Würfelspiel (https://www.delphipraxis.net/44685-wuerfelspiel.html)

Knotti2015 22. Apr 2005 20:10

Re: Würfelspiel
 
Okay allesdings wnen ich die exe immer im gleichen verzeichnis wie die bitmaps habe ist es doch okay.
Lucky du weist doch das ich ein Noob bin.

Binärbaum 22. Apr 2005 20:42

Re: Würfelspiel
 
Zitat:

Zitat von Master_RC
Noch was:

falls du mit dem random() Probleme zwecks der Startreihenfolge hast (0,1,2,3,4,...), dann mach einfach:
Delphi-Quellcode:
random(5)+1
dann kommt mind. die zahl "1" raus ;)

Das hat aber den Nachteil, dass nur Zahlen im Bereich von 1 bis 5 ausgegeben werden, die 6 kommt nie vor. Richtig wäre:
Delphi-Quellcode:
random(6)+1
MfG
Binärbaum

3_of_8 22. Apr 2005 21:07

Re: Würfelspiel
 
Zitat:

Zitat von Knotti2015
Okay allesdings wnen ich die exe immer im gleichen verzeichnis wie die bitmaps habe ist es doch okay.
Lucky du weist doch das ich ein Noob bin.

Klar, aber wenn auf einem anderen PC das ganze z.B. unter C:\Spiele\Würfelspiele\Würfel\ ist funzt es dort nicht.

setze einfach vor den Dateiname deiner bmps immer extractfilepath(application.exename)

malo 22. Apr 2005 21:14

Re: Würfelspiel
 
Zitat:

Zitat von 3_of_8
Zitat:

Zitat von Knotti2015
Okay allesdings wnen ich die exe immer im gleichen verzeichnis wie die bitmaps habe ist es doch okay.
Lucky du weist doch das ich ein Noob bin.

Klar, aber wenn auf einem anderen PC das ganze z.B. unter C:\Spiele\Würfelspiele\Würfel\ ist funzt es dort nicht.

setze einfach vor den Dateiname deiner bmps immer extractfilepath(application.exename)

Warum so kompliziert? Einfach ParamStr(0) dürfte reichen ;)

Also etwa so:

Delphi-Quellcode:
deinPfad := ParamStr(0) + 'EinBitmap.bmp';

Matze 22. Apr 2005 21:22

Re: Würfelspiel
 
Zitat:

Zitat von malo
Delphi-Quellcode:
deinPfad := ParamStr(0) + 'EinBitmap.bmp';

sicher?

Ich meine, ParamStr(0) gibt den kompletten Pfad zur exe zurück. Man müsste also noch ExtractFilePath aufrufen, zumindest mache ich das immer so.

Binärbaum 22. Apr 2005 21:26

Re: Würfelspiel
 
Zitat:

Zitat von Matze
Ich meine, ParamStr(0) gibt den kompletten Pfad zur exe zurück. Man müsste also noch ExtractFilePath aufrufen, zumindest mache ich das immer so.

Und das ist auch gut so. Paramstr(0) gibt nämlich wie schon erwähnt, den vollständigen Pfad zur .EXE zurück.

MfG
Binärbaum

JasonDX 22. Apr 2005 21:28

Re: Würfelspiel
 
Zitat:

Zitat von Matze
Zitat:

Zitat von malo
Delphi-Quellcode:
deinPfad := ParamStr(0) + 'EinBitmap.bmp';

sicher?

Ich meine, ParamStr(0) gibt den kompletten Pfad zur exe zurück. Man müsste also noch ExtractFilePath aufrufen, zumindest mache ich das immer so.

Stimmt.
Als erster Parameter wird immer der Exename inklusive Pfad übergeben. ParamStr(0) holt sich also nix anderes als den ersten Parameter der übergeben wurde, also den Pfad + Exename. -> ExtractFilePath muss davor, um nur den Pfad rauszukriegen ;)

PS: Application.ExeName übergibt auch nix anderes als ParamStr(0) :D

Knotti2015 22. Apr 2005 22:13

Re: Würfelspiel
 
Image1.Picture.Bitmap.LoadFromFile('z1.bmp');
Bei mir geht das auf jedem Rechner...

Wie kann ich z1.bmp durch eine Edit1 Box ersetzten wo dann der Pfad angegeben werden muss...

malo 22. Apr 2005 22:15

Re: Würfelspiel
 
Zitat:

Zitat von Knotti2015
Image1.Picture.Bitmap.LoadFromFile('z1.bmp');
Bei mir geht das auf jedem Rechner...

:roll:

Zitat:

Zitat von Knotti2015
Wie kann ich z1.bmp durch eine Edit1 Box ersetzten wo dann der Pfad angegeben werden muss...

Erm...
Delphi-Quellcode:
Image1.Picture.Bitmap.LoadFromFile(Edit1.Text)
:wall:

fkerber 22. Apr 2005 22:59

Re: Würfelspiel
 
Hi!

Zitat:

Zitat von Knotti2015
Image1.Picture.Bitmap.LoadFromFile('z1.bmp');
Bei mir geht das auf jedem Rechner...

Theoretisch ja.
Es versagt dann, wenn das "Arbeitsverzeichis" deiner Anwendung geändert wird, z.B. durch die Verwendung eines OpenDialogs, in dem der User dann den Ordner wechselt.

Ciao Frederic


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:37 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz