Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.11.2008, 16:37   #1
Барби
Форумчанин
 
Аватар для Барби
 
Регистрация: 19.12.2007
Сообщений: 159
Вопрос запуталась с форматом времени и строки

хочу чтобы прописалось время из трэк бара в файл в виде строки но в формате времени, т.е. 06:00, а у меня прописывается 6:0. как поправить?
Код:
    writeln(f, 'Начало моделирования:' +IntToStr(frmoptions.tbHour1.Position)+':'+IntToStr(frmoptions.tbMinute1.Position));
    writeln(f, 'Конец моделирования:' +IntToStr(frmoptions.tbHour2.Position)+':'+IntToStr(frmoptions.tbMinute2.Position));
Пока ремонтируют кукольный домик, живу на форуме.
Барби вне форума Ответить с цитированием
Старый 14.11.2008, 17:07   #2
SNUPY
Форумчанин
 
Регистрация: 15.02.2008
Сообщений: 621
По умолчанию

Код:
  mm:TFormatSettings;
  time:TTime;
begin
  time:=StrToTime('06:00');
  GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, mm);

  mm.LongTimeFormat:=('hh:mm');
  Caption:=TimeToStr(time,mm);
Помог? Ну так нажми на весы!
SNUPY вне форума Ответить с цитированием
Старый 14.11.2008, 17:27   #3
Барби
Форумчанин
 
Аватар для Барби
 
Регистрация: 19.12.2007
Сообщений: 159
По умолчанию

у меня время берется из элемента на другой форме, поэтому мне надо ссылаться именно на него и просить: уважаемый дельфи переведите пожалуйста те цифорки, которые написаны в элементе в надпись, но надпись в формате времени.
мне кажется должно быть что то вроде IntToStr(strtotime и далее по списку, но это не работает.
Пока ремонтируют кукольный домик, живу на форуме.
Барби вне форума Ответить с цитированием
Старый 14.11.2008, 18:07   #4
SNUPY
Форумчанин
 
Регистрация: 15.02.2008
Сообщений: 621
По умолчанию

Аааааа.... ну тогда первое, что на ум в лоб:
Код:
 var
 time:string;
begin
   time:='';
   if frmoptions.tbHour1.Position<10 then time:='0';
   time:=time+IntToStr(frmoptions.tbMinute1.Position)+':';
   if frmoptions.tbMinute1.Position<10 then time:=time+'0';
   time:=time+IntToStr(frmoptions.tbHour1.Position);
end;
Помог? Ну так нажми на весы!
SNUPY вне форума Ответить с цитированием
Старый 14.11.2008, 19:20   #5
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
мне кажется должно быть что то вроде IntToStr(strtotime и далее по списку, но это не работает
Есть же функция FormatDateTime.
mihali4 вне форума Ответить с цитированием
Старый 17.11.2008, 13:01   #6
Барби
Форумчанин
 
Аватар для Барби
 
Регистрация: 19.12.2007
Сообщений: 159
По умолчанию

ну что я опять не туда вставила?
Код:
 writeln(f, 'Начало моделирования:' + inttostr(formatdatetime('mm', frmoptions.tbMinute1.Position)));
Пока ремонтируют кукольный домик, живу на форуме.
Барби вне форума Ответить с цитированием
Старый 17.11.2008, 15:53   #7
DeKot
Участник клуба
 
Аватар для DeKot
 
Регистрация: 12.08.2008
Сообщений: 1,977
По умолчанию

Барби, посмотрите http://www.programmersforum.ru/showthread.php?t=30105 пост №3.
Может поможет?
И не сомневайся даже ... отдых - кайф, работа - лажа!
DeKot вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
не могу разобраться с форматом строк Bezdar Microsoft Office Excel 2 14.11.2008 11:32
считать из файла две строки, вывести на экран символы первой строки, которые отсутствуют во второй gotex Помощь студентам 4 08.05.2008 02:27
Разобраться со форматом звукового файла за 300R$ SantaQAWSED Фриланс 22 19.06.2007 03:14
Выборка по полям с форматом даты Nowichok БД в Delphi 8 10.02.2007 17:42