Создание каталога и файла.

[aleksandr278]

Подскажите пожалуйста как сделать.
В приложении в поле Edit ввожу слово например: форум, должна создаться папка с именем форум, уже в существующей папке, и одновременно в папке форум должен создаться текстовый документ с таким же названием (форум).
И еще одна проблема как убрать при создании каталога делал через этот код

procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
   // Создание нового каталога в текущей директории
  if CreateDir('Profiles')
  then ShowMessage('Новый каталог создан')
  else ShowMessage('Создание нового каталога прошло неудачно и вызвало ошибку : '+
                   IntToStr(GetLastError));
end;

Когда каталог создается выскакивает сообщение что он создан, как избавится от сообщения.

[spamer]

Держи:

procedure TForm1.Button1Click(Sender: TObject);
var
  TextF : TStringList;
begin
  CreateDir(Edit1.Text);
  TextF := TStringList.Create;
  TextF.SaveToFile(Edit1.Text + '\' + Edit1.Text +'.txt');
  TextF.Free;
end;

[aleksandr278]

Проблема в том что мне надо чтоб это все сохранялась в уже существующей папке Например : 111.
Но спасибо огромное и за это.

Уже все перепробывал, каталог у меня уже есть но как сделать чтоб это все создавалось именно в нем не получается.

[FaTaL]

Ну так сначала укажи каталог в котором создавать надо, потом в нём создавай папку, а в этой папке файл. В чём проблема то?

[Serge_Bliznykov]

uses .... FileCtrl ...
...
if not DirectoryExists(Edit1.Text) then ForceDirectories(Edit1.Text);
..
 ... SaveToFile(Edit1.Text+'\'+'my.txt');

[aleksandr278]

Так вот в этом то и дела что я не могу указать существующий каталог

procedure TForm1.Button1Click(Sender: TObject);
var
  TextF : TStringList;
begin
  CreateDir(Edit1.Text);
  TextF := TStringList.Create;
  TextF.SaveToFile(Edit1.Text + '\' + Edit1.Text +'.txt');
  TextF.Free;
end;

Совсем запутался куда его вставлять.

[FaTaL]

Сначала делаешь
ForceDIrectories ('Твой каталог\' + Edit1.text);
Потом просто
TextF.SaveToFile ('Твой каталог\' + Edit1.Text + '\' + Edit1.Text + '.txt');