Hi Steve,
dein Code-Fragment sieht irgendwie zusammengewürfelt aus, aber am Ende sollte es irgendwie so aussehen:
Delphi-Quellcode:
begin
// ...
// Laden der Bildpfade
with MainForm.ZQuery2 do
begin
First;
while not Eof do
begin
ListBox1.Items.Add(FieldByName('Foto').AsString);
Next;
end;
end;
Anzahl.Caption := IntToStr(ListBox1.Items.Count);
// erstes Bild laden wenn es geht
if ListBox1.Items.Count > 0 then
begin
imgIndex := 0;
Image1.Picture.LoadFromFile(ListBox1.Items.Strings[imgIndex]);
Jetzt.Caption := IntToStr(Succ(imgIndex));
Edit1.Text := ListBox1.Items.Strings[imgIndex];
end;
// ...
end;
Grüße vom marabu