Код:
[DCC Warning] Unit1.pas(211): W1002 Symbol 'FileSetAttr' is specific to a platform
[DCC Warning] Unit1.pas(211): W1002 Symbol 'faHidden' is specific to a platform
[DCC Warning] Unit1.pas(213): W1002 Symbol 'FileSetAttr' is specific to a platform
[DCC Warning] Unit1.pas(1106): W1002 Symbol 'FileGetAttr' is specific to a platform
Как избавиться от этих сообщений?
Код:
[DCC Warning] Unit1.pas(1007): W1000 Symbol 'Time' is deprecated
[DCC Warning] Unit1.pas(1007): W1002 Symbol 'Time' is specific to a platform
[DCC Warning] Unit1.pas(1010): W1000 Symbol 'Time' is deprecated
[DCC Warning] Unit1.pas(1010): W1002 Symbol 'Time' is specific to a platform
[DCC Warning] Unit1.pas(1016): W1000 Symbol 'Time' is deprecated
[DCC Warning] Unit1.pas(1016): W1002 Symbol 'Time' is specific to a platform
PHP код:
Time: TDateTime;
SearchRec: TSearchRec;
...
Isc.Time := SearchRec.~Time;
Чем ему SearchRec.Time не понравился? Что не так в считывании времени из файла?
Код:
[DCC Warning] Unit1.pas(425): W1058 Implicit string cast with potential data loss from 'TCaption' to 'RawByteString'
[DCC Warning] Unit1.pas(721): W1058 Implicit string cast with potential data loss from 'TCaption' to 'RawByteString'
[DCC Warning] Unit1.pas(788): W1058 Implicit string cast with potential data loss from 'TCaption' to 'RawByteString'
[DCC Warning] Unit1.pas(843): W1058 Implicit string cast with potential data loss from 'TCaption' to 'RawByteString'
[DCC Warning] Unit1.pas(1026): W1058 Implicit string cast with potential data loss from 'TCaption' to 'RawByteString'
PHP код:
MTMP.Lines.LoadFromFile(EDir.Text + FLinks[J].HTM);
MTMP.Text := UTF8ToString(MTMP.Text~);
Код:
[DCC Warning] Unit1.pas(478): W1058 Implicit string cast with potential data loss from 'string' to 'RawByteString'
PHP код:
FHTM[J].Title := UTF8ToString(Copy(S, p1, p2 - p1)~) + ' [' + IntToStr(J) + ']';
А тут что? UTF8ToAnsi - тоже самое...
Как избавиться от этих предупреждений?
Всё, конечно, работает, но предупреждения мозолят глаза =)
P.S.
~ - Это куда встаёт курсор, указывая ошибку.