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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.06.2014, 21:52   #11
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию

А нельзя ли просто?
Код:
StrTime:=TimeToStr(Time);
Если не, то делаем так:
Код:
function (Str: String): TStringList;
var
j: integer;
begin
j:=Pos(':',Str);
if j=0 then ShowMessage('Времени тут нет');
Result.Add(Сopy(Str,j-2,5)); 
Delete(Str,j-2,5);
Result.Add(Str);
end;
В результате будет две строки:
1)Время, которое ты просил
2)То что осталось без времени
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Старый 15.06.2014, 22:10   #12
UKRtortik
Форумчанин
 
Регистрация: 25.02.2014
Сообщений: 366
По умолчанию

Цитата:
Сообщение от саша40 Посмотреть сообщение
А нельзя ли просто?
Код:
StrTime:=TimeToStr(Time);
Зачем мне текущие время?
UKRtortik вне форума Ответить с цитированием
Старый 15.06.2014, 22:11   #13
UKRtortik
Форумчанин
 
Регистрация: 25.02.2014
Сообщений: 366
По умолчанию

Цитата:
Сообщение от ZuBy Посмотреть сообщение
Delete(str, 1,6); вместе с пробелом
Спасибо за помощь! Проблема решена.
UKRtortik вне форума Ответить с цитированием
Старый 15.06.2014, 22:12   #14
саша40
Участник клуба
 
Регистрация: 12.09.2012
Сообщений: 1,030
По умолчанию

Цитата:
Сообщение от UKRtortik Посмотреть сообщение
Зачем мне текущие время?
Я думал тебе надо такое.
Что нужно программисту: Компьютер, Среда программирование, Воображение, Прямые руки, Мозги, Знания этой среды программирования.
Программист-это профессия, а программирование-это моё хобби.
саша40 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получить все запросы с помощью curl CodeNOT PHP 0 19.02.2014 12:04
Получить цвет пикселя(все время 0) garyanikin Общие вопросы Delphi 6 10.05.2010 12:29
как получить системное время в формате 03:32:00 а не 3:32:00 betirsolt Общие вопросы Delphi 2 18.04.2010 02:18
как получить время? Аlex Общие вопросы C/C++ 1 04.02.2009 21:25
Как ввести системную дату и время с помощью TEdit? Bill Gates Общие вопросы Delphi 4 03.01.2008 12:06