[Подсказка] Сохранение txt со временем

[MastaDan]

Всем привет.
Решил в брут встроить сохранение файла со временем(в название тхт будет указана время его сохранения).Но не могу добиться что б он сохранял в папку где лежит сам софт. (чтоб автоматом находил директорию софта и туда сохранял)

Вот наброски кода.

var
Way,StrTime:string;
i:integer;
begin
StrTime:=TimeToStr(Time);
for i:=1 to Length(StrTime)  do
 if StrTime[i]=':' then  StrTime[i]:='_';
Way:='c:\'+StrTime+'.txt' ; //  
Form1.Memo1.Lines.SaveToFile(Way); 
ShowMessage('Файл сохранен с именем: '+StrTime);
end;

Чет я затупил уже х_х

[CyberNEŦik]

Цитата: Сообщение от MastaDan Всем привет. Решил в брут встроить сохранение файла со временем(в название тхт будет указана время его сохранения).Но не могу добиться что б он сохранял в папку где лежит сам софт. Вот наброски кода. var Way,StrTime:string; i:integer; begin StrTime:=TimeToStr(Time); for i:=1 to Length(StrTime) do if StrTime[i]=':' then StrTime[i]:='_'; Way:='c:\'+StrTime+'.txt' ; // Form1.Memo1.Lines.SaveToFile(Way); ShowMessage('Файл сохранен с именем: '+StrTime); end; Чет я затупил уже х_х

Way:='StrTime'+'.txt' ;

[MastaDan]

Не, он сохранил файл с именем StrTime.txt
но в папку с прогой.

Добавлено через 3 минуты

Цитата: Сообщение от MastaDan Не, он сохранил файл с именем StrTime.txt но в папку с прогой. ________________

Все сам додумался.
Конечный код

var
Way,StrTime:string;
i:integer;
begin
StrTime:=TimeToStr(Time);
for i:=1 to Length(StrTime)  do
 if StrTime[i]=':' then  StrTime[i]:='_';
Way:='Save'+StrTime+'.txt' ; //  
Form1.Memo1.Lines.SaveToFile(Way); 
ShowMessage('Файл сохранен с именем: '+StrTime);
end;