Promblem bei Listbox speichern

[Hans33]

Hi
bei mir gibts ein Problem beim speichern einer List Box.
Es kommt eine Fehlermeldung: 'F:\Delphi\Liste\liste.txt' kann nicht geöffnet werden. Das system kann die angegebene Datei nicht finden.
Aber in dem Ordner hab ich die datei liste.txt erstellt.
Mein Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var l,d:string;
begin
 l:=edit1.text;
 d:=edit2.Text;
 label5.caption:=(l)+ ' - '+(d);
 listbox1.Items.add(label5.caption);
 listbox1.Items.SaveToFile('liste.txt');
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.Items.LoadFromFile('liste.txt');
end;

end.

Was mach ich falsch? Wäre dankbar für Hilfen...

[Andreas L.]

Du verwendest in deinen Methoden relative Pfadangaben. Schau dir mal ExtractFilePath, Application.Exename und GetShellFolder an.

[Matze]

Hallo,

verwende auf alle Fälle absolute Pfade. Nur so ist sichergestellt, dass die Datei dort abgelegt bzw. geladen wird, wo du es möchtest. Das Arbeitsverzeichnis, was bei relativen Pfaden genommen wird, ist nicht zwangsläufig dein Programmverzeichnis.

Ist letzteres erwünscht, kannst du das so lösen:

Delphi-Quellcode:

Pfad := ExtrcatFilePath(ParamStr(0)) + 'liste.txt';

Versuche das mal, um den Fehler des falschen Pfades auszuschließen. Ansonsten würde ich die Pfade mal genau prüfen. Denn der in der Meldung erwähnte Pfad existiert so nicht.

Grüße

[Hans33]

Delphi-Quellcode:

Pfad := ExtrcatFilePath(ParamStr(0)) + 'liste.txt';

was muss ich für Pfad (F:\...\...)eingeben? oder isr das eine variable (intger,real,..)?

[DeddyH]

Pfad ist eine String-Variable.

[Der.Kaktus]

Zitat:

Zitat von Hans33

Delphi-Quellcode:

Pfad := ExtrcatFilePath(ParamStr(0)) + 'liste.txt';

was muss ich für Pfad (F:\...\...)eingeben? oder isr das eine variable (intger,real,..)?

Extractfilepath erwartet einen "string" Also

Delphi-Quellcode:

Pfad:String;

[EDIT] Roter Kasten [/Edit]

[mkinzler]

Pfad ist vom Typ String

[DeddyH]

Sollte jetzt geklärt sein :lol:

[Der.Kaktus]

Zitat:

Zitat von mkinzler

Pfad ist vom Typ String

Haufen Rote Kaesten hier *gg*

[Hans33]

Dann heißt aber : Nicht deklarierter Bezeichner extractfilepath

[mkinzler]

Hast du SysUtils eingebunden?

[Matze]

Ist die Unit "SysUtils" in der Uses-Liste vorhanden?

Und welche Delphi-Version nutzt du? Vielleicht gab's das früher auch noch nicht.

Edit: Sonst schaue mal in die Code-Library: Ordner aus Pfad extrahieren.

[Hans33]

Turbo Delphi Explorer 2006
SysUtils ist eingefügt

[Matze]

Und da kommt sicher diese Meldung? Hast du "ExtractFilePath" korrekt geschrieben?
Ich nutze auch Turbo Delphi und da funktionierte das einwandfrei. Zeig doch mal 1:1 den relevanten Code.

[mkinzler]

Dann sollte er die Funktion auch finden :gruebel:

[Hans33]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    ListBox1: TListBox;
    Label4: TLabel;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var l,d,Pfad:string;
begin
l:=edit1.text;
d:=edit2.Text;
label5.caption:=(l)+ ' - '+(d);
listbox1.Items.add(label5.caption);
edit1.Clear;
edit2.Clear;
Pfad := ExtractFilePath(ParamStr(0)) + 'liste.txt';
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
 ListBox1.Items.LoadFromFile('liste.txt');
end;

end.

[Matze]

Das kompiliert bei mir fehlerfrei. :gruebel:

[mkinzler]

Sollte eigentlich funktionieren, aber mir sind andere Dinge aufgefallen:
-Warum klammerst du die (String-)Variablen?
-Im onCreate greifst du noch auf einen u.U. falschen Pfad zu (aktuelles Verzeichnis muss wie erwähnt nicht das Verzeichnis der Exe sein)

[Hans33]

Das laden der Datei ist ja nicht mal das wichtigste, sondern eigentlich nur das speichern

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var l,d,Pfad:string;
begin
l:=edit1.text; Pfad:='F:\Delphi\Lateinliste.txt';
d:=edit2.Text;
label5.caption:=l+ ' - '+d;
listbox1.Items.add(label5.caption);
edit1.Clear;
edit2.Clear;
Pfad := ExtractFilePath(ParamStr(0)) + 'Lateinliste.txt'
end;

[Matze]

Dennoch solltest du beim Laden ebenfalls den absoluten Pfad angeben, sonst kommt es u.U. zum Fehler, dass die Datei nicht gefunden werden kann.

Ich kann mir nicht erklären, wieso es bei dir nicht funktioniert. Notfalls kannst du ja mal eine der verlinkten Funktionen aus der Code-Library testen, wobei es natürlich sinnvoll wäre, dem Fehler auf die Spur zu kommen. Hier muss ich mich dann ausklinken, denn wie gesgat, bei mir funktioniert es so wie du's hast.

[mkinzler]

Dann ist ja dies

Delphi-Quellcode:

Pfad:='F:\Delphi\Lateinliste.txt';

unnötig

[Hans33]

bei mir funktioniert es auch aber wenn ich im Explorer auf Lateinliste.txt geh sehe ich kein einziegen Buchstaben

[Matze]

Ach darum geht's. Du speicherst ja auch nichts ab:

Delphi-Quellcode:

ListBox1.Items.SaveToFile(Pfad);

[Hans33]

mmhh was soll ich sagen!?!?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var l,d,Pfad:string;
begin
l:=edit1.text;
d:=edit2.Text;
label5.caption:=l+ ' - '+d;
listbox1.Items.add(label5.caption);
edit1.Clear;
edit2.Clear;
Pfad := ExtractFilePath(ParamStr(0)) + 'Lateinliste.txt';
ListBox1.Items.SaveToFile(Pfad);
end;

mit dem funktionierts auch nicht

[Matze]

Lass dir doch nicht immer alles aus dem Ärmel ziehen.
Was geht denn nicht? Kommen Fehlermeldungen, wenn ja welche?

Bei mir geht's einwandfrei und die Datei wird angelegt und enthält den gewünschten Inhalt.

[Hans33]

Also es kommt keine Fehlermeldung nichts.
ich geb ein paar wörter ein.
Dann geh ich im explorer (in windows) auf den Pfad wo ich das Textdukument erstellt habe, öffne es und sehe nichts (also es wird nichts reingeschrieben)

[mkinzler]

Die Reihenfolge Eingabe, Button-Klick hältst du aber ein?

[Hans33]

Ja geb die wörter ein, klick auf den Button, schließ das Programm und dann im Explorer zum Textdokument

[mkinzler]

Die Datei wird aber erzeugt? Oder existiert diese vorher schon? Dann benenne sie mal um bzw lösche sie.

[Matze]

Ich gehe mal davon aus, dass du Schreibrechte im Verzeichnis hast.

Wird die Datei angelegt, wenn sie zuvor nicht vorhanden war? GetLastError meldet bei mir seltsamerweise immer:

Code:

---------------------------
Project1
---------------------------
Eine Datei kann nicht erstellt werden, wenn sie bereits vorhanden ist
---------------------------
OK   
---------------------------

Doch die Datei wird korrekt geschrieben, auch immer mit dem neuen Inhalt. Nur die Meldung macht mich ein wenig stutzig. Versuche es daher mal, die Datei zu löschen und dann dein Programm auszuführen. Nur um zu testen, ob sie angelegt wird.

Edit: Irgendwie haben Markus und ich die gleichen Gedanken, aber er ist immer einen Tick schneller ... :?

[Hans33]

also jetzt hats irgendwie funktioniert nur es speichert immer nur das was ich bis zur programmschlißung geschrieben hab. Also wenn ich das Programm neustarte und etwas eingebe komm in dem Textdokument nur das Eingegebene von diesem mal.

[mkinzler]

Ist ja auch klar. Du musst den Inhalt am Anfang laden und dann die weiteren Einträge anhängen

[Hans33]

also noch hinzufügen

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
ListBox1.Items.LoadFromFile('Lateinliste.txt'); 
end;

[mkinzler]

Ähem. Denk an den Pfad :zwinker:

[Hans33]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
ListBox1.Items.LoadFromFile(Pfad); 
end;

oder??

[mkinzler]

Pfad natürlich dementsprechend Setzen

[Hans33]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Pfad:string;
begin
ListBox1.Items.LoadFromFile(Pfad);   Pfad := ExtractFilePath(ParamStr(0)) + 'Lateinliste.txt';
end;

[Matze]

Och denke doch ein bisschen nach. ;)

Natürlich musst du zuerst den Pfad zuweisen, bevor du darauf zugreifst.

[mkinzler]

Dann aber andersrum:

Delphi-Quellcode:

Pfad := ExtractFilePath(ParamStr(0)) + 'Lateinliste.txt'; 
ListBox1.Items.LoadFromFile(Pfad);

oder ohne extra Variable:

Delphi-Quellcode:

ListBox1.Items.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Lateinliste.txt');

[Hans33]

Hatt geklappt.
Danke für die Geduld und Hilfe :stupid: :mrgreen: :thumb: