Joost van der Sluis wrote:
@@ -277,13 +277,13 @@
Result := FName;
end;
-procedure TStoredValue.SetDisplayName(const Value: string);
+procedure TStoredValue.SetDisplayName(const AValue: string);
begin
- if (Value <> '') and (AnsiCompareText(Value, FName) <> 0)
+ if (AValue <> '') and (AnsiCompareText(AValue, FName) <> 0)
and (Collection is TStoredValues)
and (TStoredValues(Collection).IndexOf(Value) >= 0) then
Forgotten a Value -> AValue conversion here ?
Micha
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
