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

[idefix2]

@ Sir Rufo
Was ich gerne wissen würde: Warum verwendest Du in dem Fall format statt einer einfachen Stringconcatination?
format muss erst den Formatstring interpretieren und dementsprechend den Ergebnisstring erzeugen, ist also quasi eine interpretative und deshalb sicher langsamere Variante als der + Operator. Intern verwendet Format wohl auch etwas wie inttostr und concat.

Natürlich ist es bei der Behandlung eines einzelnen Strings völlig gleichgültig, ich würde nur prinzipiell gerne wissen, warum Du es so machst.

[Sir Rufo]

Weil es so einfacher wartbar wird.

Bei Bedarf kann ich die Parameter mehrfach verwenden, das Format ändern und es bleibt übersichtlich.

[Qnkel]

Vielen Dank Sir Rufo, werde es entsprechend anpassen.

[JamesTKirk]

Hi!

Noch ein kleiner Tipp zum Erleichtern der Wartbarkeit:

Ersetze in deiner For-Schleife die Grenzen durch Low(Kartenblatt) und High(Kartenblatt) , also folgendermaßen:

Delphi-Quellcode:

// statt
for i:=0 to 31 do
// schreibst du
for i:=Low(Kartenblatt) to High(Kartenblatt) do

Dann musst du die Schleife nicht anpassen, wenn du mal mehr Karten haben möchtest

Gruß,
Sven