delphi - 备忘并创建文件和文件夹？

Question

我是Delphi的新手，并且是法国用户，对我的英语不好对不起...

因此可以创建用TMemo编写的文件吗？

test.txt
dir1/dir2/text.txt
dir3/

我的TMemo有3行，所以我想在第一行中在当前目录中创建文件test.txt。

2nd line: create a folder

3rd line: create a folder again+files.txt

etc ...

我想使用mkdir或ForceDirectories创建目录和文件？等等...

所以我的结论是使其自动化。

你能帮我吗？

一个小图像，您可以看到：

Answer 1

带有程序和on ButtonClick事件
如果我正确理解了这个问题，这将


根据备注行1在应用程序目录中创建一个空文本文件，其文件名
根据备注第2行并在每次编辑的“基本目录”中创建文件夹
根据备注行3在“基本目录”中再次创建一个文件夹并清空TextFile

procedure TForm1.Button1Click(Sender: TObject);
var
  Path: String;
  F: TextFile;
begin
  // Create File in current directory
  Path := ExtractFilePath(ParamStr(0)) + Memo1.Lines.Strings[0];
  if not FileExists(Path) then
  begin
    AssignFile(F, Path);
    Rewrite(F);
    //Writeln(F, 'text to write to file');
    CloseFile(F);
  end;

  // Create Directories
 Path := IncludeTrailingPathDelimiter(edPath.Text) + Memo1.Lines.Strings[1];
  if not DirectoryExists(Path) then
    ForceDirectories(Path);

  // Create Directory and File
  Path := IncludeTrailingPathDelimiter(edPath.Text) + Memo1.Lines.Strings[2];
  if not DirectoryExists(ExtractFilePath(Path)) then
    ForceDirectories(ExtractFilePath(Path));
      if not FileExists(Path) then
      begin
        AssignFile(F, Path);
        Rewrite(F);
        //Writeln(F, 'text to write to file');
        CloseFile(F);
      end;
end;

显然需要更多的错误检查，以确定路径是否有效以及创建的文件/目录等。