Сохранение в папку

[UKRtortik]

Сохраняю вот таким образом:

      
SL:=TStringList.Create;
if FileExists(per1+'.txt') then SL.LoadFromFile(per1+'.txt');
SL.Add(acc+':'+pass);
SL.SaveToFile(per1+'.txt');
FreeAndNil(SL);

Как сделать чтобы этот файл сохранялся в папку "Log" которая должна создатся возле программы

[Stilet]

path:=ExtractFilePath(Paramstr(0))+'Log\';
if not DirectoryExists(path) then ForceDirectory(path);
Дальше твой код
SL.SaveToFile(path+per1+'.txt');

[UKRtortik]

Можно полный код? А то у меня что-то с ошибками...

[Stilet]

Показывай как пытался )

[UKRtortik]

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

Показывай как пытался )

Какие переменные нужно указать?

[northener]

ForceDirectories

[UKRtortik]

все я сам разобрался. Спасибо!

[UKRtortik]

а еще, как можно сохранить текст из memo в txt так же в папку Log?

[Vanta11a]

Выходной файл создаешь в этой папке и пихаешь в него содержимое мемо.

[UKRtortik]

Как то так?

CreateDir(ExtractFilePath(Application.ExeName)+ 'Log');
smemo1.Lines.SaveToFile('Log/LogFiles.txt');