как вписать в файл текст в моем случае

[lexflax]

код программы создается папка в ней файл, как в созданный файл вписать текст который буду вводить в поле мемо1, подскажите плиз , так как у меня выдает ошибку
а как сделать чтоб текст вводился из поля мемо?

{
 
AnsiString fail;
AnsiString papka;
fail=Edit1->Text;
papka=Edit2->Text;
CreateDir(papka);
TStringList* strList = new TStringList;
strList->Add(Memo1->Lines);             (тут ругается выдает  ошибки)
strList->SaveToFile(papka+"\\"+fail);
}

[BCC32 Error] sozdankatandfail.cpp(32): E2034 Cannot convert 'TStrings * const' to 'UnicodeString'
Full parser context
sozdankatandfail.cpp(24): parsing: void _fastcall TForm1::Button1Click(TObject *)
[BCC32 Error] sozdankatandfail.cpp(32): E2342 Type mismatch in parameter 'S' (wanted 'const UnicodeString', got 'TStrings *')
Full parser context
sozdankatandfail.cpp(24): parsing: void _fastcall TForm1::Button1Click(TObject *)

[Пепел Феникса]

а зачем временный TStringList тут?
просто

Memo1->Lines->SaveToFile

.
ну а добавить все строки из Memo это

strList->AddStrings(Memo1->Lines)

[lexflax]

Сообщение от Пепел Феникса

а зачем временный TStringList тут?
просто

Memo1->Lines->SaveToFile

.
ну а добавить все строки из Memo это

strList->AddStrings(Memo1->Lines)

А это на тот случай который я хочу сейчас, тоесть чтоб по нажатию одной кнопки создавалась папка и файл в ней, а по нажатию другой кнопки открывался этот файл его содержимое было видно в поле мемо его можно было бы изменить и сохранить, а функцию SaveToFile без мемо я смог применить только задав указатель на TStringList
вот это код на одну кнопку где создается папка и файл в нем, мне надо написать код кнопки чтоб файл созданный в этой папке открывался и его содержимое было видно в поле мемо, а потом код еще для одной кнопки которая бы сохраняла те изменения в файле которые я бы сделал в поле мемо. Помогите пожалуйста написать или перечислите функции которые мне в этом помогут

{
 AnsiString fail;
 AnsiString papka;
 fail=Edit1->Text;
 papka=Edit2->Text;
 CreateDir(papka);
 TStringList* strList = new TStringList;
 strList->SaveToFile(papka+"\\"+fail);
 }

Вот как и хотел одна кнопка создает папку а в ней файл текстовый, другая кнопка выдает его содержимое в поле мемо, а другая сохраняет те изменения который были в поле мемо, вот только в каждом коде повторяются одни и теже строки, как можно сделать чтоб записать их один раз в программе? вот код

void __fastcall TForm1::Button1Click(TObject *Sender)
{

AnsiString fail;
AnsiString papka;
fail=Edit1->Text;
papka=Edit2->Text;
CreateDir(papka);
TStringList* strList = new TStringList;
strList->SaveToFile(papka+"\\"+fail+".txt");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString fail;
AnsiString papka;
AnsiString adres;
fail=Edit1->Text;
papka=Edit2->Text;
adres= papka+"\\"+fail+".txt";
Memo1->Lines->LoadFromFile(adres);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
AnsiString fail;
AnsiString papka;
AnsiString adres;
fail=Edit1->Text;
papka=Edit2->Text;
adres= papka+"\\"+fail+".txt";
Memo1->Lines->SaveToFile(adres);

}

Видно что в каждой кнопке повторяется блок
AnsiString fail;
AnsiString papka;
fail=Edit1->Text;
papka=Edit2->Text;
Можно как то упростить это? хотя бы чтобы в каждой кнопке снова не вводить две строки
AnsiString fail;
AnsiString papka;

[Пепел Феникса]

Memo1->Lines->SaveToFile(Edit1->Text+"\\"+Edit2->Text);

сохранили.

Memo1->Lines->LoadFromFile(Edit1->Text+"\\"+Edit2->Text);

загрузили.
не делайте из мухи слона.

[lexflax]

огромное спасибо

[lexflax]

появилась другая задача, хочу чтоб записывалось все в опредленную структуру, и считывало потом эту структуру.... но как сделать не знаю так черновик накидал небольшой как дальше код описать не знаю
Struct Man
{AnsiString fio;
AnsiString date;
AnsiString time;}
m[1000];
AnsiString Dname;
CreateDir("katalog\\"+Dname);
m[i].fio=Memo1->lines;
m[i].date=DateTimePicker1->Date.DateString();
m[i].time=DateTimePicker2->Time.TimeString();

в дату и время значния будут передоваться из формы а точнее из Date DateTimePicker1 и 2, вот я только не знаю как цикл организовать для i, ведь допустим я не знаю сколько раз а точнее сколько человек я буду вводить, а потом чтоб считать мне надо как то подсчитать сколько человек и это количество взять за конечный результат цикла, вот помогите с кодом пожалуйста