Artigos Delphi Criar Diretório e Arquivo TXT

{Essa Dica servirá para quem precisa criar um Diretório e salvar um arquivo TXT dentro do mesmo com o conteúdo de um RichEdit , vou partir do princípio de que o diretório e o arquivo terão o mesmo nome}

{Em Public ou Private Declarations, isso depende de onde você vai precisar acessar as variáveis, Declare as Seguintes Variáveis}

var dir,arquivo:string;

{No form coloque um edit, um RichEdit (da paleta Win32) e um button}

{Na Propriedade Lines do RichEdit exclua todo o conteúdo, e limpe a propriedade Text do Edit também}

{No evento on-click do button coloque o seguinte código}

begin
   if edit1.text = then
   begin
      showmessage (Não é possível Criar o Diretório!);
      edit1.setfocus;
      exit;
   end
   else
   arquivo:=edit1.text;
   dir:= C:\ + arquivo;
   if not DirectoryExists (dir) then
      ForceDirectories(dir);
   if DirectoryExists (dir) then
     RichEdit1.Lines.SaveToFile (dir + \ + arquivo + .txt);
end;

Espero ter contribuído com a Dúvida de alguém.

Abraços a todos!

Fabricio.