FileListBox und ListBox Problem

[maxmax]

Ich hab eine ListBox1 und eine FileListBox1.
Ich will nun, dass, sobald man etwas auswählt, die datei in der ListBox1 angezeigt wird.
aber bei programmstart meldet delphi immer einen fehler:
die datei kann nicht geöffnet werden weil der pfad nicht gefunden wurde.
was kann ich jetzt machen damit es funktioniert???

Delphi-Quellcode:

procedure TForm1.FileListBox1Change(Sender: TObject);
begin
 ListBox1.Items.LoadFromFile(FileListBox1.FileName);
end;

und hier ist der gleiche fehler:
man kann nicht abspeichern:

Delphi-Quellcode:

procedure TForm1.Listespeichern1Click(Sender: TObject);
begin
ListBox1.Items.SaveToFile(FileListBox1.FileName);
end;

[Christian18]

Ich würde eventl. prüfen, ob die datei existiert.

Delphi-Quellcode:

  if FileExists(Path + FileName) then
    begin
      // Datei existiert
    end
  else
    begin
      // Datei existiert nicht
    end;

MFG Christian18

[MrKnogge]

Du darfst eben nur Dateien in deiner FileListBox haben, die auch wirklich existieren.

Folgendermaßen kannst du überprüfen ob die Datei existiert:

Delphi-Quellcode:

procedure TForm1.FileListBox1Change(Sender: TObject); 
begin 
if FileExists(FileListBox1.FileName) then
  ListBox1.Items.LoadFromFile(FileListBox1.FileName); 
end;

Wenn die Datei Existiert, überprüf mal, ob bei FileListBox1.FileName auch der Pfad oder nur der Name enthalten ist.

[Sharky]

Zitat von Christian18:

Ich würde eventl. prüfen, ob die datei existiert. ...

Ausserdem wäre es eventuell besser das Laden erst bei einem Doppelklick zu machen und nicht schon bein OnChange.

[Christian18]

Genau.

[maxmax]

danke für die antworten.
und wie geht das mit doppelklick dann im quelltext??

[Christian18]

Es gibt dafür eine Ereigniss.

OnDplClick();

[Sharky]

Zitat von maxmax:

danke für die antworten.
und wie geht das mit doppelklick dann im quelltext??

Genau wie in deinem OnChange. Aber halt im Ereigniss OnDblClick der FileListBox.

[maxmax]

ahh ok, danke

kann ich das abspeichern dann so schreiben:

Delphi-Quellcode:

procedure TForm1.Listespeichern1Click(Sender: TObject);
begin
 if FileExists(FileListBox1.FileName) then
  ListBox1.Items.SaveToFile(FileListBox1.FileName)
 else
  ListBox1.Items.SaveToFile(InputBox('Neue Liste','Welchen Namen soll sie neue Liste besitzen?','Name'));
end;

[Sharky]

Zitat von maxmax:

ahh ok, danke

kann ich das abspeichern dann so schreiben: ...

Klar.

Wobei ich einen TSaveDialog zur Auswahl des Namens nehmen würde und vorher prüfen ob der Benutzer dort schreibrechte hat.