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