ressource datei liest keine Integer werte aus!

[Janek5024]

Hallo erst mal!
Ich hab vom Studium her folgende Aufgabe bekommen:
Ich soll ein Programm schreiben mit welchem ich Bilder vor und zurück anschauen kann! Kein einlesen über das Programm sondern sollen alle im Programm verankert sein! (nich lachen... ich studiere Maschinenbau)
Meine Lösung wäre gewesen über ein simplen zählmechanismus Bild für Bild durch zu schalten. es sellte sich aber heraus dass ich keine integer werte bekomme um sie zu addieren.
Da habe ich glücklicherweise gelesen dass es über ne resource gehen könnte. So hab ich's gemacht.

Zitat:

Also. Pack die Bitmaps in eine Ressource. Wie das geht steht hier: http://www.delphipraxis.net/viewtopi...t=326&highligh ... e+resource
Anstatt jetzt Namen zu vergeben wie im Beispiel 'calogo', nimmst du eine Zahl: 1, 2, 3, ....
Lden tust du sie dann mit:
Quellcode: markieren

Image1.Picture.Bitmap.LoadFromResourceName(HInstan ce, MAKEINTRESOURCE(1));

Und mit Random kannst du nun eine zufällige Zahl erzeugen und entsprechend einsetzen. Fertig.

nun kann ich aber doch nicht integerwerte benutzen... denn mein PC hängt sich jedesmal auf....

mein Programm:


DER BUTTON
----------

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
x:=x+1;
Image1.Picture.Bitmap.LoadFromResourceName(HInstance, MAKEINTRESOURCE(x));
end;

end.

DIE RESource
-------------

SourceCode RCDATA "uSampleForm.pas"
1 BITMAP "1.bmp"
2 BITMAP "2.bmp"
3 BITMAP "baby256.bmp"
4 BITMAP "p4.bmp"
5 BITMAP "lego.bmp"
6 BITMAP "Junky.bmp"
7 BITMAP "MR.bmp"


Kann mir bitte einer sagen was ich falsch gemacht habe

[edit=alcaeus]Delphi-Tags eingefuegt. In Zukunft bitte selbst machen. Danke Mfg, alcaeus[/edit]