SaveDialog1 и timetostr(time)

← →
Alex (2002-11-06 10:28) [0]

Всем привет!
Следующий фрагмент кода:
при нажатии на ToolButton откпывается save dialog
перед этим в SaveDialog1.FileName хочу внести готовую строку
содержит имя игрока номер и т.д.
Проверил все работало, показывал готовую строчку с нужными параметрами
Хотел добавить время сохранения,
при добавлении вот этого
SaveDialog1.FileName:=SaveDialog1.FileName+timetostr(time);
диалог перестало показывается т.е.
блок if SaveDialog1.Execute then игнорируется.
если добавляешь только дату
SaveDialog1.FileName:=SaveDialog1.FileName+datetostr(date); то все ок
В чем дело?
///---
procedure TForm1.ToolButton11Click(Sender: TObject);
begin
SaveDialog1.InitialDir:=ExtractFileDir(application.exename);
SaveDialog1.FileName:=Name_Player;
if Begin_pl=1 then
SaveDialog1.FileName:=SaveDialog1.FileName+" 1-ый "
else SaveDialog1.FileName:=SaveDialog1.FileName+" 2-ой ";
SaveDialog1.FileName:=SaveDialog1.FileName+
Inttostr((MoveKol+1)div 2)+" ходов ";

//SaveDialog1.FileName:=SaveDialog1.FileName+timetostr(time);
//при добавлении этой строчки Save Dialog не показывается

SaveDialog1.FileName:=SaveDialog1.FileName+datetostr(date);

if (Not Is_Game) then
begin
if SaveDialog1.Execute then
begin
replay1.Version:="01";
replay1.PlayerName:=Name_Player;
AssignFile(rf,Savedialog1.FileName);
rewrite(rf);
write(rf,replay1);
closefile(rf);
end;
end;
Form1.ToolButton11.Enabled:=false;
end;

← →
KoluChi (2002-11-06 10:35) [1]

SaveDialog1.FileName:=SaveDialog1.FileName+FormatDateTime("YYYY_MM_DD__HH_NN_SS", date);

← →
Alex (2002-11-06 11:59) [2]

Следущая конструкция отображает вот это:
Игрок 1-ый 6 ходов 2002_11_06__00_00_00
а где же время?

← →
KoluChi (2002-11-06 12:00) [3]

А вместо date поставь Now()

← →
Alex (2002-11-07 16:09) [4]

Следущая конструкция абсолютно рабочая
FormatDateTime("DD MMMM YYYY, HH_NN_SS", Now());
а такая
FormatDateTime("DD MMMM YYYY, HH:NN_SS", Now());
или такая
FormatDateTime("DD MMMM YYYY, hh:mm AM/PM", Now());
или такая, нет
FormatDateTime("DD MMMM YYYY, HH.NN:SS", Now());

ну не нравиться ему двоеточие,
дожно же быть этому объяснение?

← →
NP-237 (2002-11-07 16:23) [5]

Имя файла не должно содержать символов < > ? [ ] : | *
Скажем * используется как маска в FindFirst,
ну и т.п. для других символов

← →
Alex4444444444 (2002-11-07 16:39) [6]

[ ] mogut byt". Zapresheny < > | (pipes and redirection),
: (yasno, pochemu), ? * (masks) i / \ (v IMENI).

← →
Alex (2002-11-07 19:08) [7]

спасибо за ответы! , совсем запарился, элементарные вещи стал забывать :).

SaveDialog1 и timetostr(time) Найти похожие ветки