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:

Zitat von Qnkel (Beitrag 1056256)

...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:

Zitat von Qnkel (Beitrag 1056256)

na Fehlermeldung in der picture.inc ab.

Willkommen beim lustigen Fehlermeldung raten. :roll:

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:

Delphi-Quellcode:

Kartenblatt[i].PNG.Create;

eine Objekt erstellt man wie folgt:

Delphi-Quellcode:

Objekt := TObjekt.Create();

.

[omata]

Zitat:

Zitat von Luckie (Beitrag 1056259)

Von was für einem Typ ist Kartenblatt?

Das steht doch in der erste Zeile:

Delphi-Quellcode:

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 :D 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.

[DP-Maintenance]

Dieses Thema wurde am "18. Oct 2010, 06:49 Uhr" von "Matze" aus dem Forum "Object-Pascal / Delphi-Language" in das Forum "Lazarus (IDE)" verschoben.

[shmia]

Wenn da 3 Mal im Sourcecode steht:

Delphi-Quellcode:

Pfad + '\' + IntToStr(i) + '.' + Typ

dann sollte man doch eine Zwischenvariable

Delphi-Quellcode:

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.