Images laden

[len123]

Hallo zusammen
ich hab ein ordner mit ganz vielen Fotos, die dann alle, in der FormCreate Prozedur in jeweils ein image auf meiner form geladen werden.
Nur is das lästig jedesmal jedes mal:

Code:

Image1.Picture.LoadFromFile('Bild1.jpg');

zuschreiben, wen man 60 bilder hat.
Kann man das nicht auch anders machen?
Ich denke so in der Richtung:

Code:

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
for i := 1 to 60 do 
Image1.Picture.LoadFromFile('Bild'+IntToStr(i)+'.jpg'); //es bringt leider nichts weil man i nicht bei image einsetzen kann
i :=i + 1;
until i := 60
end;

Bzw. wie kann das programm ermitteln wie viele bilder in einem Ordner sind, und dann alle in die images laden?

[Helmi]

Hallo,

mittels FindComponent kannst du Komponenten anhand des Names suchen.

Das würde dann etwa so aussehen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const
  Pfad = 'C:\derOrdnerderdieBilderbeinhaltet\';

var
  i: Integer;
  S: String;
  Image_Temp: TImage;

begin
  for i := 1 to 60 do
    begin
      //Image anhand des Namen suchen und in Temp-Variable laden
      Image_Temp := FindComponent(Format('Image%d', [i])) as TImage;

      //Dateiname aufbauen
      S := Pfad + Format('Bild%d.jpg', [i]);

      //Image und Datei vorhanden? - Datei in Image laden
      If Assigned(Image_Temp) and FileExists(S) then
        Image_Temp.Picture.LoadFromFile(S);
    end;
end;

Du solltest unbedingt den Pfad des Bildes mitangeben um sicher zu sein, dass das Bild auch wirklich gefunden wird.

[himitsu]

Du hast es geschafft 60 Images auf eine Form draufzubekommen?

Warum lädst du denn die Bilder nicht direkt in die Komponenten rein, also schon im OI?

PS: Es ist nicht so gut, wenn du relative Pfade nutzt, denn das Arbeitsverzeichnis muß nicht immer deinem Programmverzeichnis entsprechen.
Schau dir mal ExtractFilePath(ParamStr(0)) oder ExtractFilePath(Application.ExeName) an und verwende zukünftig nur noch absolute Pfade.

[len123]

hey vielen dank
das hilft mir weiter
@himitsu ich hab bei 30 aufgehört weil ich kein bock mehr hatte, aber ich werd mich da mal einlesen

[Mavarik]

Warum auf ein Form klicken?

Speicher die Bilder doch in einer Resource-Datei

Mavarik

[BMI]

Zitat von himitsu:

Du hast es geschafft 60 Images auf eine Form draufzubekommen?

...

ist doch eigentlich einfach.
Shift und Kompo --- und dann nur 60x Klicken.
Oder mit For-schleife und dann dynamisch images-Kompos erstellen.

v.a. 60 images vielleicht sog noch mit 14 mpx Digicam-pictures gefüllt
(4320 x 3240, als BMP im RAM 42,0 MB )

macht auch gerade nur mal 2520 MB RAM.

paßt doch super. Bleiben auf nem modernen Standard-Spielerechner noch immer 29.480 GB frei.