Timage per Button nächstes Bild einen Verz.

[capo]

Hallo,
ich öffne per Buttonclick ein Bild aus einem Ordner.

Delphi-Quellcode:

Image32.Bitmap.LoadFromFile(extractfilepath(application.exename) + 'Zeichnungen\Bild 006a.jpg');

In diesem Ordner sind noch x andere Bilder.
Wie kann ich nun mit zwei anderen Buttons (vor- und zurückbutton), ohne die Bildnamen der einzelnen Bilder zu kennen, jedes Bild anzeigen und navigieren (vor und zurück?
Sind alles Jpeg's.

Gruss
Capo

[mkinzler]

Ermittle die Dateien des Ordners (.FindFirst/.FindNext)

[capo]

Hallo,
stimmt das klappt damit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var I:Integer;
SearchRec: TSearchRec;
begin
 i := FindFirst(extractfilepath(application.exename) + 'Zeichnungen\*.jpg', faAnyFile, SearchRec);
        while i = 0 do
        begin
          ListBox1.Items.Add(SearchRec.Name);
          i := FindNext(SearchRec);

        end;
        FindClose(SearchRec);
end;

Wie kann ich nun eins nach dem nächsten Bild anzeigen und wieder bei dem ersten anfangen wenn das Ende ereicht ist bzw. zurück navigieren?

[mkinzler]

Ich würde die Bildernamen in eine Liste schreiben und dann mit Hilfe der, duurch die Bilder iterieren

[capo]

Was meinst du mit iterieren?
Hast du ein Delphi-Beispiel für mich wie ich das mit den Bildern machen kann?

[mkinzler]

Iterieren=durchlaufen

Delphi-Quellcode:

i := 0;
while not Ende
begin
    Image32.Bitmap.LoadFromFile(Bilder[i]);
    //hier Abbruchbedingung setzen
    if i > High( Bilder) then i := 0;
end;

[capo]

Danke.
Ich verwende ja eine Listbox um mir den Inhalt des Ordners anzuzeigen
Wie kann ich die in deinem Beispiel verwenden?

Zitat:

Ende - (Bilder[i] - High( Bilder)

.

[DeddyH]

Wenn die Dateinamen sowieso schon in einer ListBox stehen, kannst Du doch deren Items verwenden.

[capo]

Momentan mache ich es so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i :integer;
s:string;
begin
 for i := 0 to listbox1.Items.Count - 1 do
  begin
    if ListBox1.Selected[i] then
    begin
      s := listbox1.Items[i];
      Image32.Bitmap.LoadFromFile(extractfilepath(application.exename) + 'Zeichnungen\'+s);
     end;
  end;
end;

Ich markiere per Button die einzelnen Zeilen und führe dann obeigen Code aus.
Ist bestimmt nicht besonders elegant.

Gruss
Capo

[Sharky]

Hai capo,

.ItemIndex sollte Dir eigentlich den Index des markierten Eintrages der ListBox zurück geben. Du musst also nicht die ganze Liste durchlaufen um zu sehen welcher Eintrag markiert ist.