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.