Сохранение в папку - Общие вопросы Delphi

UKRtortik · 01.03.2014, 20:04

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

Код:

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

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

Stilet · 01.03.2014, 20:11

Код:

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

UKRtortik · 01.03.2014, 20:21

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

Stilet · 01.03.2014, 20:34

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

UKRtortik · 01.03.2014, 20:39

Цитата:

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

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

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

northener · 01.03.2014, 20:40

ForceDirectories

UKRtortik · 01.03.2014, 20:47

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

UKRtortik · 01.03.2014, 21:16

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

Vanta11a · 01.03.2014, 21:19

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

UKRtortik · 01.03.2014, 21:25

Как то так?

Код:

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

01.03.2014, 20:04	#1
UKRtortik Форумчанин Регистрация: 25.02.2014 Сообщений: 366	Сохранение в папку Сохраняю вот таким образом: Код: `SL:=TStringList.Create; if FileExists(per1+'.txt') then SL.LoadFromFile(per1+'.txt'); SL.Add(acc+':'+pass); SL.SaveToFile(per1+'.txt'); FreeAndNil(SL);` Как сделать чтобы этот файл сохранялся в папку "Log" которая должна создатся возле программы

01.03.2014, 20:11	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Код: `path:=ExtractFilePath(Paramstr(0))+'Log\'; if not DirectoryExists(path) then ForceDirectory(path); Дальше твой код SL.SaveToFile(path+per1+'.txt');` I'm learning to live...

01.03.2014, 20:34	#4
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Показывай как пытался ) I'm learning to live...

01.03.2014, 21:19	#9
Vanta11a Lawful Evil Участник клуба Регистрация: 13.05.2008 Сообщений: 1,208	Выходной файл создаешь в этой папке и пихаешь в него содержимое мемо. Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату. На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)

01.03.2014, 21:25	#10
UKRtortik Форумчанин Регистрация: 25.02.2014 Сообщений: 366	Как то так? Код: `CreateDir(ExtractFilePath(Application.ExeName)+ 'Log'); smemo1.Lines.SaveToFile('Log/LogFiles.txt');`

01.03.2014, 20:21	#3
UKRtortik Форумчанин Регистрация: 25.02.2014 Сообщений: 366	Можно полный код? А то у меня что-то с ошибками...

01.03.2014, 20:40	#6
northener ПШП Участник клуба Регистрация: 15.07.2013 Сообщений: 1,926	ForceDirectories

01.03.2014, 20:47	#7
UKRtortik Форумчанин Регистрация: 25.02.2014 Сообщений: 366	все я сам разобрался. Спасибо!

01.03.2014, 21:16	#8
UKRtortik Форумчанин Регистрация: 25.02.2014 Сообщений: 366	а еще, как можно сохранить текст из memo в txt так же в папку Log?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Сохранение книги в известную папку	OgE®_M@G	Microsoft Office Excel	48	17.11.2011 16:42
сохранение документов Office при отправке на принтер в отдельную папку	Dimonus	Microsoft Office Word	0	09.06.2011 15:00
Сохранение файлов программы в папку на рабочем столе	Ирина Ушакова	Помощь студентам	0	03.06.2011 13:12
Сохранение загруженного в TImage изображения в папку с программой	Torymo	Помощь студентам	1	06.02.2009 03:41
Переименовать папку	Inbox	Общие вопросы Delphi	17	01.02.2009 07:34