TPicture-Array per for-to-do-Schleife füllen < zu blöd :(

[Qnkel]

Moin.

Programmiere mit Lazarus, habe vorher Delphi genutzt.

Ich habe ein TPicture-Array und will dort Bilder von einem Kartenspiel reinladen. Die sind von 0 bis 31 durchnummeriert.

Mein Code:

Delphi-Quellcode:

var
  Kartenblatt: array[0..31] of TPicture;
 
function Kartenladen(Pfad, Typ: string): Boolean;
var i: integer;
begin
  Result := True;
  for i:=0 to 31 do
    begin
      ShowMessage(Pfad + '\' + IntToStr(i) + '.' + Typ);
      Kartenblatt[i].PNG.Create;
      If FileExists(Pfad + '\' + IntToStr(i) + '.' + Typ) then
        Kartenblatt[i].PNG.LoadFromFile(Pfad + '\' + IntToStr(i) + '.' + Typ)
      Else
        Result := False;
    end;
end;

Wo liegt der Fehler?
Am Anfang hatte ich noch direkt Kartenladen[i].LoadFromFile genutzt ohne die Dateierweiterung vorher anzugeben.
Der Funktion soll ja eig. mit der Variable "Typ" erst der Dateityp übergeben werden, habe gehoffft TPicture erkennt das automatisch.

Aber auch wenn ich direkt mit ".PNG." arbeite und PNG-Dateien liefere, stürzt es mit na Fehlermeldung in der picture.inc ab.

Wo liegt mein Fehler?

[omata]

Zitat von Qnkel:

...stürzt es mit na Fehlermeldung in der picture.inc ab.

Wie lautet die Fehlermeldung?

Und ein Schluss ins blaue...

Delphi-Quellcode:

var
  Kartenblatt: array[0..31] of TPicture;
 
function Kartenladen(Pfad, Typ: string): Boolean;
var i: integer;
begin
  Result := True;
  for i:=0 to 31 do
    begin
      ShowMessage(Pfad + '\' + IntToStr(i) + '.' + Typ);
      Kartenblatt[i]:=TPicture.Create;
      If FileExists(Pfad + '\' + IntToStr(i) + '.' + Typ) then
        Kartenblatt[i].PNG.LoadFromFile(Pfad + '\' + IntToStr(i) + '.' + Typ)
      Else
        Result := False;
    end;
end;

[Luckie]

Zitat von Qnkel:

na Fehlermeldung in der picture.inc ab.

Willkommen beim lustigen Fehlermeldung raten.

Und die wichtigen Informationen fehlen mal wieder: Welche Fehlermeldung? Von was für einem Typ ist Kartenblatt? Was ist oder macht die Eiegenschaft PNG? Was soll das:
Kartenblatt[i].PNG.Create; eine Objekt erstellt man wie folgt: Objekt := TObjekt.Create(); .

[omata]

Zitat von Luckie:

Von was für einem Typ ist Kartenblatt?

Das steht doch in der erste Zeile: var Kartenblatt: array[0..31] of TPicture;

[Luckie]

Mist. Treten meinen ganzen Beitrag in die Tonne. Das war totaler Müll, was ich da geschrieben habe. Aber ohne Fehlermeldung wird es schwer zu helfen.

[Qnkel]

Vielen Dank omata, dein Schluss ins Blaue war genau richtig.

Schon zu spät für sowas Sorry, bin so lange raus und hab jetz wieder angefangen...

Könnt euch wieder hinlegen

[Luckie]

Wo hat omata denn ins Blaue geschossen? Er hat mich doch nur auf die Deklaration hingewiesen.

@omata: Jetzt weiß ich was passiert ist: Eine Deklaration fängt bei mir immer Mit T-Irgendwas an. Das zugehörige Objekt oder Variable wird dann genauso genannt, nur ohne das T.

[shmia]

Wenn da 3 Mal im Sourcecode steht: Pfad + '\' + IntToStr(i) + '.' + Typ dann sollte man doch eine Zwischenvariable var filename:string benützen,oder?

[DeddyH]

Das sehe ich auch so. Außerdem würde ich String-Parameter wann immer möglich (also wenn sie innerhalb der Routine nicht verändert werden) als const deklarieren.