Diashow

[Uncle Cracker]

Ich habe das jetzt so:

Delphi-Quellcode:

function GetToken(aString, SepChar: string; TokenNum: Byte): string;
var
  Token: string;
  StrLen: Byte;
  Num: Byte;
  EndofToken: Byte;
begin
  StrLen     := Length(aString);
  Num        := 1;
  EndofToken := StrLen;
  while ((Num <= TokenNum) and (EndofToken <> 0)) do
  begin
    EndofToken := Pos(SepChar, aString);
    if EndofToken <> 0 then
    begin
      Token := Copy(aString, 1, EndofToken - 1);
      Delete(aString, 1, EndofToken);
      Inc(Num);
    end
    else
      Token := aString;
  end;
  if Num >= TokenNum then
    Result := Token
  else
    Result := '';
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  s, path: string;
  i   : integer;
  stl : tstringlist;
begin
//Dateien in Listbox laden (Erweiterung noch da)
   Listbox1.Items.Clear;
   path:=edit1.Text+'\*.jpg'#0;
   s := path;

   ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
   listbox1.ItemIndex:=0;

  stl:=tstringlist.Create;
  try
    for i := 0 to listbox1.items.count - 1 do
    begin
      stl.Add(GetToken(listbox1.items.strings[listbox1.itemindex], '.', 1));
      listbox1.ItemIndex:=listbox1.ItemIndex+1;
    end;
    listbox1.Items.CommaText:=stl.commatext;
  finally
    stl.Free;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
Image1.Picture.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

Bei mir kommt jetzt aber immer die Meldung: (.JPG) unbekannte Bilddatei.

Was ist denn nun das Problem?


Danke UC