Fehler bei Adressierung einer Textdatei zum zugehörigen Ordner

[Newcomer91]

Guten Morgen,

zurzeit erweitere ich ein paar Tools die ich mir mal geschrieben habe.
Bei einem, ein kleines Programm, welches man quasi wie einen Notizblock nutzt(alles mögliche eintragen, einsortiert in jeweilige txt datei usw.)
Habe ich bislang den Filepath immer so gesetzt:
ExtractFilePath(Application.Exename) Das funktioniert auch gut allerdings möchte ich nun den Pfad auf neu erstellte Ordner setzen.

ich probierte es so, was allerdings überhaupt keinen Sinn macht wie man sieht:

Delphi-Quellcode:

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

  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
    extractFilePath(sDir);
    AssignFile(txt, sDir +'Experience.txt');
    rewrite(txt);
    CloseFile(txt);
  end;
end;

Was muss ich ändern?

Danke im vorraus.

New

[DeddyH]

ExtractFilePath ist eine Funktion. Du musst also auch den Rückgabewert auswerten. Außerdem fehlen im unteren Block wohl begin und end, es sei denn, ich habe die Logik nicht verstanden.

[Newcomer91]

Ja, schon klar. Allerdings weist man bei ExtractFilePath doch nur dem File ein Directory zu, oder nicht?
Und was meinst du mit

Zitat:

Du musst also auch den Rückgabewert auswerten.

Wie werte ich den aus?

begin und end hinzugefügt. Es funktionierte komischerweise auch ohne, aber sie machen schon sinn..

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

[Deep-Sea]

Wieso nutzt du ExtractFilePath für etwas, was keinen Dateinamen enthält?
Wenn du es so aufrufst: ExtractFilePath('C:\blablabla\blaa'), dann kommt der String 'C:\blablabla\' zurück. Aber ich hoffe das ist klar?! ...


(Böser DeddyH ...)