VPF::string' to 'AnsiString' - Форум программистов

de_Nis

Дата 12.3.2011, 16:04 (ссылка)

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

Загрузка ...

Старательный

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

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

При компиляции исходников Д2007 в Д2009 в следующем участке кода:

Код


var
fName: AnsiString;

begin
TimeSeparator := '-';  //разделитель вместо сивола ":"
ShortDateFormat := 'yyyy_mm_dd';  
fName := 'Результат '+DateToStr(Now)+'_'+TimeToStr(Now)+'.txt';
...

получаю Warning
[DCC Warning] ..........: W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
на строчку
fName := 'Результат '+DateToStr(Now)+'_'+TimeToStr(Now)+'.txt';

Я перевел как "потенциальная потеря данных при неявном переходе от 'string' к 'AnsiString'
Думаю, это как-то связано с DateToStr(Now) или с TimeToStr(Now), или с тем и другим.
Как изменить код, чтобы не было этого предупреждения?

--------------------

Несчастлив не тот, у кого ничего нет, а тот, кто ничего не хочет…

CODeRUS

Дата 12.3.2011, 16:46 (ссылка)

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

Загрузка ...

Шустрый

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

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

используйте просто string, зачем вам Ansi?

БелАмор

Дата 12.3.2011, 21:38 (ссылка)

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

Загрузка ...

Бывалый

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

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

О формировании строки...

Цитата(de_Nis @ 12.3.2011, 16:04

)

TimeSeparator := '-'; //разделитель вместо сивола ":"
ShortDateFormat := 'yyyy_mm_dd';
fName := 'Результат '+DateToStr(Now)+'_'+TimeToStr(Now)+'.txt';

Неудачное решение.
Всё можно сделать в одну строку, причём без переназначения форматов:

Код

fName := FormatDateTime('yyyy_mm_dd__hh-nn-ss-zzz".txt"', Now);

de_Nis

Дата 14.3.2011, 09:49 (ссылка)

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

Загрузка ...

Старательный

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

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

Цитата(CODeRUS @ 12.3.2011, 15:46

)

используйте просто string, зачем вам Ansi?

Сделал, как рекомендовано. Помогло, Warning болше нет.

Цитата(БелАмор @ 12.3.2011, 20:38

)

код Pascal/Delphi
1: fName := FormatDateTime('yyyy_mm_dd__hh-nn-ss-zzz".txt"', Now);

Буду пробовать.
Всем спасибо. Закрываю тему.

--------------------

Несчастлив не тот, у кого ничего нет, а тот, кто ничего не хочет…

Alexeis

Дата 14.3.2011, 10:31 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

AnsiString все же следует использовать в старом коде, где производиться побайтовое копирование или другие прямые операции с памятью строки в обход стандартных функций.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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