Fehler bei Adressierung einer Textdatei zum zugehörigen Ordner

[taveuni]

ForceDirectories erstellt das Verzeichnis wenn nicht vorhanden.
Du brauchst das ganze ExtractFilePath Gedöns nicht.

Also:

Delphi-Quellcode:

var
  sDir: String;
begin
  sDir:= ('C:\blablabllaa\blaaablabla');
  if not ForceDirectories(sDir)
  begin
    // das Verzeichnis ist nicht vorhanden und konnte nicht erstellt werden.
    // weshalb - mit GetLastError auswerten.
  end
  else
    // mach was in dem Verzeichnis
  begin
  end;

[Bernerbaer]

Weshalb verwendest du if not FileExists(ExtractFilePath(sDir)+'Experience.txt') then Du willst doch direkt ins Verzeichnis sDir schreiben.

Also:

Delphi-Quellcode:

....
sDir:= IncludeTrailingPathDelimeter(sDir); //sicherstellen das sDir mit einem Backslash aufhört

If not Fileexists(SDir + 'Experience.txt' then
begin
  AssignFile(txt, sDir +'Experience.txt');
  rewrite(txt);
  CloseFile(txt);

end;

[DeddyH]

Und jetzt einmal im Ganzen (ungetestet, sollte aber passen):

Delphi-Quellcode:

procedure TfrmExperience.btnSaveClick(Sender: TObject);
const Filename = 'Experience.txt';
var
  txt: TextFile;
  sDir: String;
begin
  sDir:= ('C:\blablabllaa\blaaablabla');

  if ((edtHeadline.Text <> '') and (Memo1.Text <> '')) then begin
    ListBox1.Items.Add(edtHeadline.Text);

    if DirectoryExists(sDir) or ForceDirectories(sDir) then
      begin
        sDir := IncludeTrailingPathDelimiter(sDir);
      
        if not FileExists(sDir + Filename) then
          begin
            AssignFile(txt, sDir + Filename);
            rewrite(txt);
            CloseFile(txt);
          end;
      end;
  end;
end;

[Newcomer91]

Danke für die zahlreichen posts plötzlich )

Ja, das mti dem extractfilepath war mir entgangen,
ich hatte es nun eben so gelöst:

Delphi-Quellcode:

procedure TfrmExperience.btnSaveClick(Sender: TObject);
var
  txt: TextFile;
  sDir: String;
begin
  sDir:= ExtractFilePath(Application.Exename)+'Unterordner\';

  if ((edtHeadline.Text <> '') and (Memo1.Text <> '')) then begin
    ListBox1.Items.Add(edtHeadline.Text);

  if not DirectoryExists(sDir) then
    ForceDirectories(sDir);

  if not FileExists(sDir+'Experience.txt') then
    begin
      AssignFile(txt, sDir +'Experience.txt');
      rewrite(txt);
      CloseFile(txt);
    end;
  end;
end;

Nun hab ich schon ne andere Sache an der ich grübel

Aber danke nochmal.

[Newcomer91]

Wie kann ich dem Filename anhand des Inhalts des Editfeldes edtHeadline.txt bestimmen?

wenn ichs so eingebe in meinen code, wird daraus einfach eine Datei, es soll aber ja eine Textdatei werden.

Jemand ne Idee?

[DeddyH]

ChangeFileExt

[Newcomer91]

if not FileExists(sDir+ ChangeFileExt(edtHeadline.text)'txt') then
Hab es bereits mit und ohne hochkommas sowie mit und ohne punkt getestet.

Was mache ich falsch?

//Edit: In der Fehlermeldung wurde von nicht genügend wirklichen parametern gesprochen

[Bernerbaer]

Warnung!
Unabhängig zu den schon des öftern erwähnten ExtractFilePath-Problem. Empfehle ich Dir dein Vorgehen nochmals zu überdenken.

Ohne weiteres von deinem Programm zu wissen, denke ich dass es mindestens bedenklich ist, im Programmverzeichnis Daten abzulegen. Unter Windows Vista oder Windows Seven haben Benutzer (auch als Administratoren angemeldete) in der Regel keine Schreibrechte! Microsoft schlägt andere Ordner vor (z.Bsp. Application Data) um solche Daten abzuspeichern.

[DeddyH]

ChangeFileExt(edtHeadline.text, '.txt') Das steht doch in der Hilfe schön beschrieben.

[edit]

Zitat von Bernerbaer:

Warnung!
Unabhängig zu den schon des öftern erwähnten ExtractFilePath-Problem. Empfehle ich Dir dein Vorgehen nochmals zu überdenken.

Ohne weiteres von deinem Programm zu wissen, denke ich dass es mindestens bedenklich ist, im Programmverzeichnis Daten abzulegen. Unter Windows Vista oder Windows Seven haben Benutzer (auch als Administratoren angemeldete) in der Regel keine Schreibrechte! Microsoft schlägt andere Ordner vor (z.Bsp. Application Data) um solche Daten abzuspeichern.

Das kann man aber nicht unbedingt verallgemeinern. Für mobile Anwendungen ist es gängige Praxis, Daten im eigenen Verzeichnis abzulegen. Trotzdem ist der Hinweis natürlich angebracht. [/edit]

[jfheins]

jaja, Brute-Force-Programmieren ist doch toll

Wie man beim Klicken auf den Link erfährt, benötigt ChangeFileExt genau 2 Parameter. Parameter werden nach dem Funktionsnamen in Klammern angegeben, voneinander mit Kommata getrennt.

Das sieht dann z.B. so aus:
AssignFile(txt, sDir +'Experience.txt'); Da werden auch 2 Parameter übergeben.

Jetzt guck dir dein Konstrukt nochmal genau an