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?