Fehler bei Adressierung einer Textdatei zum zugehörigen Ordner

[DeddyH]

Auswerten heißt, dass Du mit dem Funktionsrückgabewert auch etwas anfängst, ihn z.B. einer Variablen zuweist.

Delphi-Quellcode:

function Doppelwert(i: integer): integer;
begin
  Result := i * 2;
end;

...

Zahl := 10;
Doppelwert(Zahl); //dieser Aufruf ist komplett überflüssig, da er nichts bewirkt
Zahl := Doppelwert(Zahl); //so sieht das schon anders aus ;)

[Newcomer91]

Soweit so gut, nun habe ich schonmal die Textdatei ohne den Namen des Ordners dazu erstellt.

Delphi-Quellcode:

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

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

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

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

Nach wie vor wird sie allerdings im selben directory der exe erstellt.
Ich kann in dem code nirgens sehen dass ich das explizit angebe.

Was fehlt noch?

[DeddyH]

Hast Du mal unter C:\blablabllaa nachgesehen?

[Newcomer91]

Problemgelöst. Lag an einer anderen Sache.
Dennoch, ein danke an DeddyH

/closed;

[haentschman]

Moin...

AssignFile(txt, sDir +'Experience.txt');
...setze mal hier einen Breakpoint und sage mal wie sDir zu diesem Zeitpunkt aussieht.

[DeddyH]

Das ist ein Unterordner des Programmordners? Dann ist das klar, da Du ja den letzten Ordnernamen mit ExtractFilePath wieder rauslöschst (zumindest, solange er nicht mit einem Backslash abschließt). Lass also das ExtractFilePath einfach mal weg.

[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.