Перевод из строки в TDateTime

← →
Strate © (2007-08-07 15:08) [0]

Здравствуйте.

Воожу в текстовое поле время в формате mm:ss.zzz . Как корректно без ошибок перевести строку в тип дата-время?

← →
{RASkov} © (2007-08-07 15:10) [1]

> [0] Strate © (07.08.07 15:08)

StrToDateTime()
+ FormatSettings

← →
Strate © (2007-08-07 15:17) [2]

> {RASkov} © (07.08.07 15:10) [1]

А можно уточнить как заполнить FormatSettings именно для случая с zzz?

← →
{RASkov} © (2007-08-07 15:27) [3]

> [2] Strate © (07.08.07 15:17)

Так и заполняй
FormatSettings.LongTimeFormat:="mm:ss.zzz";

← →
Strate © (2007-08-07 15:38) [4]

Написал именно так, ошибка "12:12.121 is not valid time". Естественно цифры для примера взял. Вот не пойму как правильно оформить.

> [4] Strate © (07.08.07 15:38)

Может кто и умнее что придумает, но попробуй так:

В Edit1.Text - "25:55.625"

procedure TForm1.Button1Click(Sender: TObject); var D: TTime; N, L: Integer; H, M, S, Ms: Word; SMs: String; Fs: TFormatSettings; begin N:=LastDelimiter(".", Edit1.Text)-1; L:=Length(Edit1.Text)-N; SMs:=Copy(Edit1.Text, N+2, L); D:=StrToTime("00:"+Copy(Edit1.Text, 1, N)); GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, Fs); Fs.LongTimeFormat:="nn:ss.zzz"; ShowMessage(TimeToStr(D, Fs)); DecodeTime(D, H, M, S, Ms); D:=EncodeTime(H, M, S, StrToIntDef(Sms, 0)); ShowMessage(TimeToStr(D, Fs)); end;
В общем как-то не больно мне это нравиться :)
А зачем вообще нужно вводить миллисекунды?

Спасибо, попробуем. А надо это для построения таблицы рекордов спортсменов. Вот.

Перевод из строки в TDateTime Найти похожие ветки