Unable to open file "hunger.jpg"

[Nicknack]

Hallo,

Das hier ist mein erster Post, ich hoffe ich mache nichts falsch

Also: Ich habe letztens aus Langeweile angefangen mir Programmieren beizubringen
Das klappt auch ganz gut, allerdings scheint Lazarus so seine Eigenheiten zu haben
Wie in der Überschrift steht, kommt diese Fehlermeldung als Pop-Up wenn ich versuche mein Programm zu kompilieren. Ich wollte vorher dieses hunger.jpg laden, hab mich dann aber um entschieden... Jetzt steht in keiner Zeile irgendetwas von hunger.jpg oder ähnliches, trotzdem versucht er das noch zu laden
Woran kann das liegen? Was kann ich dagegen tun? Danke schon mal im Voraus das ihr bis hierhin gelesen habt

Lg Nicknack

P.S. Cooles Forum

[theo]

Hallo!
Ohne Quelltext schwer zu sagen.

[Nicknack]

Gibt noch keinen großen Quelltext... Habe nur ein paar Variabeln eine Zahl zugewiesen...

Hatte eben den Screenshot vergessen den ich gemacht habe

http://www.apload.de/images-i222237beym4q.png <--- Leider breiter als 1000 Pixel, daher nur der Link und nicht das implementierte Bild

[Socke]

Gibt noch keinen großen Quelltext... Habe nur ein paar Variabeln eine Zahl zugewiesen...

Hatte eben den Screenshot vergessen den ich gemacht habe

http://www.apload.de/images-i222237beym4q.png <--- Leider breiter als 1000 Pixel, daher nur der Link und nicht das implementierte Bild

Tja. Das kommt wirklich von deinem Programm. Da musst du wohl noch mal suchen gehen...

[theo]

Gibt noch keinen großen Quelltext... Habe nur ein paar Variabeln eine Zahl zugewiesen...

Immerhin groß genug um einen Fehler zu haben. Ohne Quelltext-upload musst du selber schauen.

[Nicknack]

Code: Alles auswählen

unit Yed_Quellcode;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, ComCtrls, types;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image10: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure ProgressBar1ContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  hunger, energie, spass, harndrang, hygiene, Geld, Skala: integer;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  hunger:= 100;
  energie:= 100;
  spass:= 100   ;
  harndrang:= 100;
  hygiene:= 100   ;
  geld:= 1000      ;
  Skala:= 50;
  label1.caption:= IntToStr(hunger);
  label2.caption:= IntToStr(energie);
  label3.caption:= IntToStr(spass);
  label4.caption:= IntToStr(hygiene);
  label5.caption:= IntToStr(harndrang);
  label6.caption:= IntToStr(geld);
 
 
 
end;
 
procedure TForm1.Image1Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Image5Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Image6Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Image7Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Label1Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.ProgressBar1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
end;
 
end.
 

Mhhm... Ich suche nochmal :/ Danke euch für's erste...

[Nicknack]

Habe den Code nochmal um folgendes erweitert:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  hunger:= 100;
  energie:= 100;
  spass:= 100   ;
  harndrang:= 100;
  hygiene:= 100   ;
  geld:= 1000      ;
  Skala:= 50;
  label1.caption:= IntToStr(hunger);
  label2.caption:= IntToStr(energie);
  label3.caption:= IntToStr(spass);
  label4.caption:= IntToStr(hygiene);
  label5.caption:= IntToStr(harndrang);
  label6.caption:= IntToStr(geld);
  Image6.Picture.LoadFromFile(F:\Hunger.jpg);
  Image5.Picture.LoadFromFile(F:\schlafen.jpg);
  Image7.Picture.LoadFromFile(F:\spass.jpg);
  Image8.Picture.LoadFromFile(F:\hygiene.jpg)
  Image10.Picture.LoadFromFile(F:\geld.jpg)

jetzt zeigt er nur hunger.jpg an, allerdings im falschen TImage...

[theo]

Ja was nun?
Ich meinte eigentlich den gesamten Quellcode, inkl. *.lpr und *.lfm als Zip, aber ohne *.exe.

[Nicknack]

Ah, hatte es falsch gelesen, hier

[theo]

Und was ist jetzt das was du nicht verstehst?

Dort steht doch in procedure TForm1.FormCreate am Schluss
Image1.Picture.LoadFromFile('hunger.jpg');

Es wird versucht das Bild zu laden aber es wird nicht gefunden. Ganz normal, oder?

[Nicknack]

Sorry, hatte zwischendurch wieder rumprobiert... Nein, denn wenn ich diese Zeile lösche, kommt die Fehlermeldung trotzdem! Und wenn ich das Bild an die Stelle packe, dann wird es auf Image1 geladen obwohl ich es auf Image6 haben will! Wenn ich dann dann das Bild am richtigen Platz habe, aber die Zeile entfernt habe, dann wird das Bild trotzdem nach Image1 geladen Der muss sich irgendwo abgespeichert haben dass das mal mein Wunsch war

[Socke]

Sorry, hatte zwischendurch wieder rumprobiert... Nein, denn wenn ich diese Zeile lösche, kommt die Fehlermeldung trotzdem! Und wenn ich das Bild an die Stelle packe, dann wird es auf Image1 geladen obwohl ich es auf Image6 haben will! Wenn ich dann dann das Bild am richtigen Platz habe, aber die Zeile entfernt habe, dann wird das Bild trotzdem nach Image1 geladen Der muss sich irgendwo abgespeichert haben dass das mal mein Wunsch war

Mal ganz langsam.

Code: Alles auswählen

Image1.Picture.LoadFromFile('hunger.jpg');

Warum, glaubst du, wird das Bild in Image1 und nicht in Image6 angezeigt? Ganz einfach: Du sagt Image1, dass es das Bild laden soll.

[Antrepolit]

Code: Alles auswählen

 Image6.Picture.LoadFromFile(F:\Hunger.jpg);

muss

Code: Alles auswählen

 Image6.Picture.LoadFromFile('F:\Hunger.jpg');

sein. Und alle anderen LoadFromFIle benötigen ebenfalls Hochkommas, denn der Dateiname ist ein String.