VPF::строку в ttime - Форум программистов

СЭНСЭЙ

Дата 12.4.2011, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 432
Регистрация: 20.3.2006

Репутация: нет
Всего: нет

Люди добрые помогите перевести строку в формат времени.
пробую так но не получается

var
fs:tFormatSettings;
begin
st1:='12:12:12.333';
fs.LongTimeFormat:='hh:mm:ss.zzz';
t1:=strtotime(st1,fs);
end;

выдает ошибку

Gwire

Дата 12.4.2011, 15:40 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: 1
Всего: 4

Код


    fs.TimeSeparator   := ':';
    fs.DecimalSeparator   := '.';
    fs.LongTimeFormat  := 'hh:mm:ss.zzz';

СЭНСЭЙ

Дата 12.4.2011, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 432
Регистрация: 20.3.2006

Репутация: нет
Всего: нет

а вы сами пробовали это?
у меня не сработало
все равно ошибку выдает

Добавлено через 1 минуту и 37 секунд
получилось!!!

Gwire

Дата 12.4.2011, 15:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

Репутация: 1
Всего: 4

Код


procedure TForm1.FormCreate(Sender: TObject);
var f : TFormatSettings;
    s : String;
    t : TTime;
begin
    AllocConsole;

    f.TimeSeparator    := ':';
    f.DecimalSeparator := '.';
    f.LongTimeFormat   := 'hh:mm:ss.zzz';

    s:= '12:34:56.789';
    t:= StrToTime( s, f );
    Writeln( FormatDateTime( 'hh:mm:ss.zzz', t ) );

    s:= '12:12:12.333';
    t:= StrToTime( s, f );
    Writeln( FormatDateTime( 'hh:mm:ss.zzz', t ) );
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »