Сохранение в текстовый файл

[Askat]

Как сделать так чтобы при сохранений текстового файла через SaveDialog в название файла вставлялась юлианская дата и номер файла к примеру возьмем 01.01.2007 по юлианскому календарю это будет 001, 02.01.2007 будет 002, 03.01.2007 будет 003 и т.д. до сегодняшнего месяца, скажем сегодня 18.07.2007 это будет 199 и плюсь еще к этой дате автоматический добавлялась номер файла, к примеру, если будем сохранять в файл то будет так 199001, 199002, 199003, а завтрашней датой будет 200004, 200005 и т.д.
в общем должно быть так:
DDD – Юлианская дата (001 .. 366)
NNN – Номер файла в день
Заранее Спосибо!!!

[Alar]

http://www.programmersclub.ru/labfile - работа с файлами.

http://www.delphibasics.ru/Date.php - узнать дату.

[_SERGEYX_]

Номер дня в году

function GetDays(ADate: TDate): Extended;
 var
   FirstOfYear: TDateTime;
 begin
   FirstOfYear := EncodeDate(StrToInt(FormatDateTime('yyyy', now)) - 1, 12, 31);
   Result      := ADate - FirstOfYear;
 end;

Ну, а номер сохраняемого файла можно получать по разному. Например, записывать куда-то значение и при сохранении увеличивать его на единицу.

[)Игнат(]

А у меня сэйв диалог сохраняет текст как файл, хотя фильтры я настроил. кто может помочь?

[Sibedir]

А у меня сэйв диалог сохраняет текст как файл, хотя фильтры я настроил. кто может помочь?

Сэйв диалог ничего сохранять не умеет, он только имя файла дает. Показывайте код.

[mihali4]

1. Объявите глобальную переменную filenumber.
2.

procedure TForm1.FormCreate(Sender: TObject);
begin
filenumber:=1;
...
end;

3. Немного изменим предложенную выше функцию:

function GetDays: integer;
 var
   FirstOfYear: TDateTime;
 begin
   FirstOfYear := EncodeDate(StrToInt(FormatDateTime('yyyy', now)) - 1, 12, 31);
   Result      := Round(Int(Now-FirstOfYear));
 end;

4. Собственно запись файла (в предположении, что текст находится, например, в ListBox):

var tmp: string;
begin
tmp:=IntToStr(filenumber);
while Length(tmp)<3 do
tmp:='0'+tmp;
ListBox1.Items.SaveToFile('C:\'+IntToStr(GetDays)+tmp+'.txt');
Inc(filenumber);
end;

По-моему это - то, что вы хотели...

[)Игнат(]

Дело в том, что текст у меня сохранается без расширения, хотя блокнотом открываестя

[Sibedir]

)Игнат(, вас очень сложно понять. Вы можите сказать, что я мол новичек. Но все-таки, думаю, такие вещи вы знаете, просто не потрудились их описать как следует. Ну непример:

Дело в том, что текст у меня сохранается без расширения, хотя блокнотом открываестя

Текст как таковой сохранить нельзя, его можно записать в файл, а файл уже сохранить. Это мелочи, тут вас все конечно поняли, но вот то, что

сэйв диалог сохраняет текст как файл

вообще нельзя понять. Сейф диалог (в стандартном понимании) - это компонент, который имеет функцию по созданию окна, в котором выбирается имя файла.
Если я вас правильно понял одна из ваши проблем в том, что вы не можите сохранить файл без расширения. Для того, чтобы этого добится, не нужно вообще настраивать фильтр. Его нужно оставить пустым.
Но мне не понятно, зачем вам вообще нужен этот самый диалог, если программа сама задает имя файла.

[)Игнат(]

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

)Игнат(, вас очень сложно понять. Вы можите сказать, что я мол новичек. Но все-таки, думаю, такие вещи вы знаете, просто не потрудились их описать как следует. Ну непример:Текст как таковой сохранить нельзя, его можно записать в файл, а файл уже сохранить. Это мелочи, тут вас все конечно поняли, но вот то, что вообще нельзя понять. Сейф диалог (в стандартном понимании) - это компонент, который имеет функцию по созданию окна, в котором выбирается имя файла.
Если я вас правильно понял одна из ваши проблем в том, что вы не можите сохранить файл без расширения. Для того, чтобы этого добится, не нужно вообще настраивать фильтр. Его нужно оставить пустым.
Но мне не понятно, зачем вам вообще нужен этот самый диалог, если программа сама задает имя файла.

Нет, совсем наоборот, у меня текст сохраняется без расширения, а я хочу, чтоб сохранялся с расширением *.ТХТ. фильтры я настроил

[Sibedir]

SaveDialog1.DefaultExt := 'txt'