Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

SaveDialog1 и timetostr(time) [D5, Win95/98]

Alex © (2002-11-06 10:28:00)
Всем привет!
Следующий фрагмент кода:
при нажатии на 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;

Alex (2002-11-07 19:08:00) [1]
спасибо за ответы! , совсем запарился, элементарные вещи стал забывать :).

Alex4444444444 (2002-11-07 16:39:00) [2]
[ ] mogut byt". Zapresheny < > | (pipes and redirection),
: (yasno, pochemu), ? * (masks) i / \ (v IMENI).

NP-237 (2002-11-07 16:23:00) [3]
Имя файла не должно содержать символов < > ? [ ] : | *
Скажем * используется как маска в FindFirst,
ну и т.п. для других символов

Alex (2002-11-07 16:09:00) [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());

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

KoluChi (2002-11-06 12:00:00) [5]
А вместо date поставь Now()

Alex (2002-11-06 11:59:00) [6]
Следущая конструкция отображает вот это:
Игрок 1-ый 6 ходов 2002_11_06__00_00_00
а где же время?

KoluChi (2002-11-06 10:35:00) [7]
SaveDialog1.FileName:=SaveDialog1.FileName+FormatDateTime("YYYY_MM_DD__HH_NN_SS", date);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »