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?