![]() |
|
|
#1
|
|||
|
|||
|
Скачал IdReply.pas, но при переводе в *dcu компилятор ругается вот на это...
Код:
procedure TIdReply.SetCode(const AValue: string);
var
LMatchedReply: TIdReply;
begin
EIdException.IfFalse(CheckIfCodeIsValid(AValue), Format(RSReplyInvalidCode, [AValue]));
// Only check for duplicates if we are in a collection. NormalReply etc are not in collections
// Also dont check FReplyTexts, as non members can be duplicates of members
if Collection <> nil then begin
LMatchedReply := TIdReplies(Collection).Find(AValue);
EIdException.IfTrue((LMatchedReply <> nil) and (LMatchedReply <> Self)
, 'Reply already exists for ' + AValue); {do not localize}
end;
FCode := AValue;
end; Вполне может быть, что это исправляется элементарно, но у меня не получилось. Подскажите, пожалуйста, как это исправить. Или поделитесь файлом IdCmdTCPClient.dcu, если не жалко ![]() |
|
#2
|
|||
|
|||
|
Значит скачал какой-то не той версии, не совместимой с той, которая уже установлена.
Вообще, Indy лучше обновлять целиком. |
|
#3
|
|||
|
|||
|
Похоже на то. Обновил инди полностью и всё заработало. Спасибо!
|