关于动态创建文件夹然后保存的问题

Question

问题还是没有解决．．所以又发，我的问题是，我用edit1.text创建了个文件夹，就是说我的文件夹的名字是个变量，
通过读取edit1.text的值来创建的，然后我想把memo的内容通过button　click 以文本的形式保存到这个文件夹内
procedure TForm1.Button1Click(Sender: TObject);
var
tmpstring:string;
begin
Forcedirectories('c:\家园\'+EDIT1.Text); //创建文件夹
memo1.Lines.Clear;
tmpstring:='我的家园';
memo1.Lines.Add(tmpstring);
memo1.lines.savetofile(？？？);／／保存
请问我怎样把＂我的家园＂保存到这个文件夹内啊　谢谢非常着急．！！！！！！！！

Answer 1

不知道LZ要保存的文件名是什么，暂时用1.txt
var
  tmpstring:string;
begin
  if ForceDirectories('c:\家园\ '+Edit1.Text) then
  begin
    Memo1.Lines.Clear;
    tmpstring:= '我的家园 ';
    Memo1.Lines.Add(tmpstring);
    Memo1.Lines.SaveToFile('c:\家园\ '+Edit1.Text + '\' + '1.txt');//保存
  end;
end;

Answer 2

ForceDirectories创建目录Memo1.Lines.SaveToFile保存文件，路径自己定吧。以上楼主的方法就是一个例子。