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

[Sir Rufo]

Also so

Delphi-Quellcode:

var
  Kartenblatt: array[ 0..31 ] of TPicture;

function Kartenladen( const Pfad, Typ: string ) : Boolean;
var 
  i: integer;
  filename : string;
begin
  Result := True;
  for i := 0 to 31 do
    begin
      filename := Format( '%s%d.%s', [ IncludeTrailingPathDelimiter( Pfad ), i, Typ ] );
      ShowMessage( filename );
      Kartenblatt[ i ] := TPicture.Create;
      If FileExists( filename ) then
        Kartenblatt[ i ].PNG.LoadFromFile( filename )
      Else
        Result := False;
    end;
end;

Ein Hinweis zu den Begriffen Path/Pfad und Dir/Verzeichnis
Bei Path/Pfad erwartet man ein Verzeichnis mit abschließendem Trennzeichen
Bei Dir/Verzeichnis aber ohne
ExtractFilePath ExtractFileDir