Laden von .jpg in Listbox funzt net

[SaFu]

Hallo zusammen

habe ein kleines Problem

Ich lade über OpenDialog .jpg dteien in eine Listbox hatte mal fnktioniert aber jetzt auf einmal nicht mehr

Die datei die auswähle soll in die Listbox geladen werden was mache ich falsch

Delphi-Quellcode:

procedure TForm4.Button7Click(Sender: TObject);
begin
 if OpenDialog1.Execute then; //Dateimenü öffnen
  FileListBox1.Update; //aktualisieren
end;

[mkinzler]

-Laß mal das Semikolon nach dem then weg.
-Du mußt ja irgendwas in die Listbox eintragen nur ein Update bringt ja nichts.
Was hast du geanu vor, was meinst du mit jpg reinladen?

[SaFu]

Ich wurde gerne über den Button das Opendialog öffnen, ein .jpg aus einen belibigen Ordner auswählen und da in die listbox übernehmen

[mkinzler]

Den Dateinamen?

Delphi-Quellcode:

procedure TForm4.Button7Click(Sender: TObject);
begin
if OpenDialog1.Execute then //Dateimenü öffnen
  FileListBox1.add( OpenDialog1.FileName); //aktualisieren
end;

[Matze]

Die Dateinamen bekommst du so da hinein:

Delphi-Quellcode:

if OpenDialog1.Execute then
  for i := 0 to OpenDialog1.Files.Count - 1 do
    FileListBox1.Items.Add(OpenDialog1.Files[i]);

Bei einer einzelnen Datei:

Delphi-Quellcode:

if OpenDialog1.Execute then
  FileListBox1.Items.Add(OpenDialog1.FileName);

Nicht getestet.


Edit: Da war Markus wohl schneller ...

[SaFu]

ja das geht so aber jetzt wird der ganze pfad mit übergeben habe ich vielleicht was falsch eingestellt im OI wie gesagt vorher ging das so :cry:

[inherited]

Delphi-Quellcode:

if OpenDialog1.Execute then
  FileListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName));

[Matze]

Wenn du nur den Dateinamen möchtest, dann nutze ExtractFileName, die Endung bekommst du mit ChangeFileExt weg, indem du als neue Endung einen leeren String übergibst. Doch da hätte dir die Suche auch geholfen.

[SaFu]

Die Bilder müssen aber über das Opendialog in einem dafür angelegten ordner gespeichert werden macht das opendialog das nicht automatisch

bei mir liegen die ordenr in diesem ordner auf den greift dann die FileListbox zu

Delphi-Quellcode:

Bilddat:= ExtractFilePath(ParamStr(0))+'\Bilder\'; //Pfad in Variable übergeben
  FileListBox1.Directory:= Bilddat; //Laden des Ordners aus dem Pfad

muss man da jetzt ein savefile rein schreiben in die procedure

Delphi-Quellcode:

procedure TForm4.Button7Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  FileListBox1.Items.Add(ExtractFileName(OpenDialog1.FileName));
end;

oder muss nicht die Filelistbox sondern der ordner angegeben werden??

[Blackheart]

Das sollte Helfen.
http://www.christian-stelzmann.de/in..._reloaded.html