Сохранение в Delphi

[TaYgA]

Всем доброго времени суток... У меня есть код сохранения:

procedure TOrganizer.btSaveClick(Sender: TObject);
begin
with RecDiary do
 begin
  Lines.SaveToFile('test.txt');
 end;
end;

Я хочу сделать, чтоб при сохранении Delphi создавала папку с именем записанным в Label, и в эту папку сохраняла этот файл. Если папка с таким именем существует, то чтоб Delphi просто дописывала в неё... Как это сделать?!?!

[Arigato]

MKDir создаёт папку.

[profi]

CreateDir('C:\111'); // создаем директорию
Memo1.Lines.SaveToFile('C:\111\temp.txt'); // сохраняем данные

[TaYgA]

Сообщение от Arigato

MKDir создаёт папку.

А что это и как им пользоваться?!?!

[Arigato]

Сообщение от TaYgA

А что это и как им пользоваться?!?!

Это процедура такая, создающая папку. Как использовать - смотрим в хэлпе.

[uberchel]

Вот процедура сохранения:

procedure TOrganizer.btSaveClick(Sender: TObject);
var
 Path: String;
begin
 Path:= ExtractFileDir(ParamStr(0)) +'\папка'; //Переменная содержащия путь к папке
 with RecDiary do
 begin
  if not DirectoryExists(Path) then CreateDir(Path); // Если папки не то создаём и
  Lines.SaveToFile(Path + '\test.txt'); //Сохраняем
 end;
end;

И к слову, есть куча процедур создающих папки это: mkdir,createdir,forcederictories
Как пользоваться можно посмотреть в хелпе и наконец, просто можно набрать в делфе и она
покажет, что у всех у них идет string - то есть просто пишешь папку которую надо создать, чего не понятного, учитесь и еще раз учитесь, а по поводу темы с начало пользуйтесь поиском по форуму
и если не чего не найдете то создавайте тему, это я к тому что подобных тем(клонов уж очень много стало) !

[TaYgA]

uberchel, большое вам спасибо. В следущий раз буду предусмотрительней и воспользуюсь сначала поиском

У меня возникла ещё одна маленькая проблемка
Мой код сохранения:

procedure TDiary.btSaveClick(Sender: TObject);
var
   Name,Path: String;
begin
  Name:=LStructure.Caption;
  Path:= ExtractFileDir(ParamStr(0))+'\'+Name;
  with RecDiary do begin
    if not DirectoryExists(Path) then CreateDir(Path);
    Lines.SaveToFile(Path + '\Deary.txt');
  end;
end;

А как производить чтение с этой папки?!?!

[uberchel]

Зачем кучу переменных ?

procedure TDiary.btSaveClick(Sender: TObject);
var
   Path: String;
begin
  Path:= ExtractFileDir(ParamStr(0)) +'\'+ LStructure.Caption;
  with RecDiary do begin
    if not DirectoryExists(Path) then CreateDir(Path);
    Lines.SaveToFile(Path + '\Deary.txt');
  end;
end;

На чтении , также создаёте эти переменные !

procedure TDiary.btLoadClick(Sender: TObject);
var
   Path: String;
begin
  Path:= ExtractFileDir(ParamStr(0)) +'\'+ LStructure.Caption;
  with RecDiary do begin
    if  FileExists(Path + '\Deary.txt') then 
    Lines.LoadFromFile(Path + '\Deary.txt')
  else
   ShowMessage('Файл не найден');
  end;
end;

[TaYgA]

Спасибо за помощь

Подскажите что не правельно?! Уже всё перепробовал...

procedure TDiary.FronShow(Sender: TObject);
var
   Path: String;
begin
  Path:= ExtractFileDir(ParamStr(0)) +'\'+ LStructure.Caption;
  with RecDiary do begin
    if  FileExists(Path + '\Deary.txt') then 
    Lines.LoadFromFile(Path + '\Deary.txt')
  else
   ShowMessage('Файл не найден');
  end;
end;

Я записал загрузку файла в процедуру FromShow чтоб при переходе на форму загрузка происходила автоматически... При переходе на форму выскакие вает ошибка "Файл не найден" (записанная в else) хотя он существует... И только после повторного перехода на форму файл загружается....

[Arigato]

Сообщение от TaYgA

FronShow

Сообщение от TaYgA

FromShow

Что это всё такое?