|
Вопрос # 5 920/ вопрос решён / |
|
Приветствую, уважаемые эксперты!
подскажите как исправить вот такую ошибку
[DCC Warning] Uni1.pas(4447): W1057 Implicit string cast from 'ShortString' to 'string'
в строке
var
tx:string;
begin
txt := Days[DayOf(Now)]+','+Formatdatetime('dd', Data)+' '+Months[MonthOf(Now)]+#13#10+(Formatdatetime('dd/mm/yyyy',Now)) +' '+'г.'+' '+FormatDateTime('hh:mm',Now);end;
Спасибо!
 |
Вопрос задал: casio (статус: Посетитель)
Вопрос отправлен: 30 января 2012, 15:03
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 11; последнее сообщение — 11 февраля 2012, 14:42; участников в обсуждении: 5.
|
min@y™ (статус: Доктор наук), 30 января 2012, 15:31 [#1]:
В именах переменных не ошибся, а?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
casio (статус: Посетитель), 30 января 2012, 15:51 [#2]:
min@y™: та нет,все работает показывает и дату и время, но постоянно выскакивает предуприждение
|
|
Вадим К (статус: Академик), 30 января 2012, 16:25 [#3]:
Точно в именах переменных что то не то. В var разделе написана переменная tx, а в коде используется txt.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
casio (статус: Посетитель), 30 января 2012, 16:39 [#4]:
Вадим К: ой ну пропустил букву, не до копировал! дело не в букве,я подозреваю что ошибка может в том что я переношу на новую строку #13#10 или слишком длинная строка
|
|
|
min@y™ (статус: Доктор наук), 30 января 2012, 16:45 [#5]:
Цитата (casio):
или слишком длинная строка
Да не, ты, видать, ещё длинных строк не видал. Что говорит хэлп по поводу этого ворнинга?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 30 января 2012, 16:46 [#6]:
И чойто мне кажется, что ты не весь кусок кода выложил.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
VKHacker (статус: 1-ый класс), 30 января 2012, 16:47 [#7]:
С "Data" похоже тоже опечатка.
А можно описание Days, DayOf, Months, MonthOf? Дело в них походу.
Что-то из них типа ShortString. И это нужно конвертнуть в string.
|
|
|
VKHacker (статус: 1-ый класс), 30 января 2012, 17:01 [#8]:
Если массивы Days и Month имеют тип ShortString (string[xx]), то вот это уберет предупреждение:
txt := string(Days[DayOf(Now)])+','+Formatdatetime('dd', Date)+'
'+string(Months[MonthOf(Now)])+#13#10+(Formatdatetime('dd/mm/yyyy',Now)) +' '+'г.'+' '+FormatDateTime('hh:mm',Now);
|
|
|
casio (статус: Посетитель), 30 января 2012, 17:52 [#9]:
VKHacker:
вот функции
function MonthOf(const AValue: TDateTime):Word;
begin
//
end;
function DayOf(const AValue: TDateTime):Word;
begin
//
end;
var Data: TDateTime; AYear : Word;
|
|
amber (статус: 1-ый класс), 11 февраля 2012, 14:09 [#10]:
Что у тебя за среда? Пробовал твой код в Delphi 7 и в RAD Studio 2010 - обе ничего подобного не писали. Нормально компилировали и запускали. Может в твоем коде есть что то ещё, то оказывает влияние на это сообщение?
|
|
|
casio (статус: Посетитель), 11 февраля 2012, 14:42 [#11]:
lf amber: спасибо,я уже нашел не подключил оказывается модуль DateUtils )))
|
11 февраля 2012, 14:42: Статус вопроса изменён на решённый (изменил автор вопроса — casio)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
