15.09.2007, 09:45
|
|
Участник форума
Регистрация: 09.12.2006
Сообщений: 135
Провел на форуме:
426226
Репутация:
726
|
|
Сообщение от infernal-team
[Error] Unit4.pas(86): Undeclared identifier: 'MessageParts'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'
Что означает эта ошибкА?
Не русским же языком написано:
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'
Неисправимая ошибка в строке 8 , невозможно скомпилировать используемую часть 'Unit4.pas'
Unit4 in 'Unit4.pas' {Form4};
[Error] Unit4.pas(86): Undeclared identifier: 'MessageParts'
Т.к. неопределенный идентификатор MessageParts в строке 86
Который либо вообще не определен, либо определен в UnitХ.pas и не известен в 'Unit4.pas'
Используй uses UnitX (X номер Unit где определена MessageParts) в 'Unit4.pas'
Зы пока писал сам запутался.
|
|
|
15.09.2007, 10:04
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
Код:
[Error] Unit4.pas(86): Undeclared identifier: 'TIdAttachmentFile'
[Error] Unit4.pas(86): Missing operator or semicolon
[Error] Unit4.pas(86): Incompatible types: 'TComponent' and 'TIdMessageParts'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'
Вот другая поблема ошибка вылетает из за этой строки:
TIdAttachmentFile.Create(M.MessageParts, OpenDialog1.FileName);
что я сделал не так помоги пожалуйста. |
|
|
|
15.09.2007, 11:25
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
[Fatal Error] Unit4.pas(9): Program or unit 'Unit4' recursively uses itself
Вот какая ошибка после твоего совета, Xserg !!!
|
|
|
|
16.09.2007, 17:20
|
|
Познающий
Регистрация: 04.07.2007
Сообщений: 56
Провел на форуме:
329032
Репутация:
8
|
|
Справился сам, всем спасибо.
|
|
|
|
17.09.2007, 18:07
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time) возвращает дату по-русски. Как сделать чтоб данная функция всегда возвращала дату по-английски?
|
|
|
|
17.09.2007, 18:29
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от Joker-jar
FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time) возвращает дату по-русски. Как сделать чтоб данная функция всегда возвращала дату по-английски?
Это можно настроить, читай )
http://www.delphisources.ru/pages/faq/faq_delphi_basics/FormatDateTime.php.html
|
|
|
|
17.09.2007, 18:37
|
|
Постоянный
Регистрация: 08.05.2006
Сообщений: 816
Провел на форуме:
1845671
Репутация:
1338
|
|
Сообщение от Joker-jar
FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time) возвращает дату по-русски. Как сделать чтоб данная функция всегда возвращала дату по-английски?
А ещё можно получить вот так:
VOID GetSystemTime(
LPSYSTEMTIME lpSystemTime // address of system time structure
);
typedef struct _SYSTEMTIME { // st
WORD wYear;
WORD wMonth;
WORD wDayOfWeek;
WORD wDay;
WORD wHour;
WORD wMinute;
WORD wSecond;
WORD wMilliseconds;
} SYSTEMTIME;
Members
wYear
Specifies the current year.
wMonth
Specifies the current month; January = 1, February = 2, and so on.
wDayOfWeek
Specifies the current day of the week; Sunday = 0, Monday = 1, and so on.
wDay
Specifies the current day of the month.
wHour
Specifies the current hour.
wMinute
Specifies the current minute.
wSecond
Specifies the current second.
wMilliseconds
Specifies the current millisecond.
т.е. wMonth -> January = 1, February = 2, and so on.
Создашь массив с именами месяцев Array(January, February, ....) и дней ...
Получаем нужное название месяца = Array[wMonth];
|
|
|
|
17.09.2007, 18:49
|
|
Постоянный
Регистрация: 27.08.2006
Сообщений: 367
Провел на форуме:
2009677
Репутация:
472
|
|
GlOFF, GetSystemTime насколько я знаю возвращает время по Гринвичу, оно будет отличаться от твоего времени, чтобы получить время своего часового пояса используйте GetLocalTime.
|
|
|
|
17.09.2007, 18:49
|
|
Постоянный
Регистрация: 11.03.2007
Сообщений: 581
Провел на форуме:
4172659
Репутация:
646
|
|
Ок, разобралса
|
|
|
|
17.09.2007, 19:59
|
|
Участник форума
Регистрация: 09.12.2006
Сообщений: 135
Провел на форуме:
426226
Репутация:
726
|
|
Сообщение от Joker-jar
Ок, разобралса
Можно на Delphi
Код:
procedure SetLocaleFormatSettings(land:dword);
var i:dword;
fs:TFormatSettings;
begin
GetLocaleFormatSettings(land,fs);
for i:=1 to 7 do begin
ShortDayNames[i]:=fs.ShortDayNames[i];
LongDayNames[i]:=fs.LongDayNames[i];
end;
for i:=1 to 12 do begin
ShortMonthNames[i]:=fs.ShortMonthNames[i];
LongMonthNames[i]:=fs.LongMonthNames[i];
end;
end;
var s:string;
begin
SetLocaleFormatSettings(LANG_ENGLISH);
s:=FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time);
SetLocaleFormatSettings(LANG_RUSSIAN);
s:=FormatDateTime('dddd, d-mmm-yy h:mm:ss',Date+Time);
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
