Einzelnen Beitrag anzeigen

idefix2

Registriert seit: 17. Mär 2010
Ort: Wien
1.027 Beiträge
 
RAD-Studio 2009 Pro
 
#6

Re: Schiffe versenken Delphi Hilfe!!

  Alt 1. Jun 2010, 10:32
Die ganzen Abfagen kann man sich sparen mit:

Delphi-Quellcode:
const bildname: array[0..3] of string = ('wasser.jpg', 'schuss.jpg', 'schiff.jpg', 'wrack.jpg');
....

image1.picture.loadfromfile(bildname[a[1][1]]);
image2.picture.loadfromfile(bildname[a[1][2]]);
....
Und auf die Komponenten kann man in einer Schleife über den Namen zugreifen
'image'+intoToStr(i)


Nachdem Windows den Dateizugriff wohl im Cache halten wird, ist es vielleicht egal, trotzdem würde ich eher ein Feld mit 4 TImage Variablen anlegen und in die nur einmal die Bilder einlesen, unzählige Male die Dateien öffnen und lesen ist sicher nicht sinnvoll:

Delphi-Quellcode:
var bild: array [0..3] of timage;
bild[0].loadfromfile ('wasser.jpg');
bild[1].loadfromfile ('schuss.jpg');
und dann
Delphi-Quellcode:
image1.picture := bild[a[1][1]];
image2.picture := bild[a[1][2]];
...

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

Geändert von mkinzler ( 6. Jun 2010 um 20:35 Uhr)
  Mit Zitat antworten Zitat