[Uniq!]

Есть строки вида:

TE_000024_20150201
TE_000024_20150202
TE_000024_20150204

Т.е. TE_000024_YYYYMMDD

Как из такой строки получить переменную TDateTime?
Осознаю, что нужно использовать

Код:

StrToDate

с начальными настройками.

[Alegun]

Вот как вариант

Код:

var
 s : string;
 dt: TDateTime;
begin
 s:= 'TE_000024_20150204';
 dt:= VarToDateTime(
 Copy(s,Length(s)-7,4) + '.' +
 Copy(s,Length(s)-3,2) + '.' +
 Copy(s, Length(s)-1,2));
end;

[Freeman]

Вообще-то правильный способ, как мне кажется -- это выкусывание строки по примеру коллеги Alegun-а, но не для формирования новой строки, а через StrToInt в отдельные целые переменные, которые потом передаются функции EncodeDateTime.

[Uniq!]

Сообщение от Freeman

Вообще-то правильный способ, как мне кажется -- это выкусывание строки по примеру коллеги Alegun-а, но не для формирования новой строки, а через StrToInt в отдельные целые переменные, которые потом передаются функции EncodeDateTime.

Зачем существует тогда вот этот тип
TFormatSettings