Yes, use this one instead.
On Wed, 2005-12-21 at 15:09 +0100, Micha Nelissen wrote:
> 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
>
--
Met vriendelijke groeten,
Joost van der Sluis
CNOC Informatiesystemen en Netwerken
http://www.cnoc.nl
Index: lcl/propertystorage.pas
===================================================================
--- lcl/propertystorage.pas (revision 8349)
+++ lcl/propertystorage.pas (working copy)
@@ -51,7 +51,7 @@
function GetStoredValues: TStoredValues;
protected
function GetDisplayName: string; override;
- procedure SetDisplayName(const Value: string); override;
+ procedure SetDisplayName(const AValue: string); override;
public
constructor Create(ACollection: TCollection); override;
procedure Assign(Source: TPersistent); override;
@@ -74,11 +74,11 @@
private
FStorage: TCustomPropertyStorage;
function GetValue(const AName: string): TStoredValue;
- procedure SetValue(const AName: string; StoredValue: TStoredValue);
+ procedure SetValue(const AName: string; AStoredValue: TStoredValue);
function GetStoredValue(const AName: string): TStoredType;
procedure SetStoredValue(const AName: string; Value: TStoredType);
function GetItem(Index: Integer): TStoredValue;
- procedure SetItem(Index: Integer; StoredValue: TStoredValue);
+ procedure SetItem(Index: Integer; AStoredValue: TStoredValue);
public
constructor Create(AOwner: TPersistent);
function IndexOf(const AName: string): Integer;
@@ -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
+ and (TStoredValues(Collection).IndexOf(AValue) >= 0) then
raise Exception.Create(SDuplicateString);
- FName := Value;
+ FName := AValue;
inherited;
end;
@@ -373,9 +373,9 @@
Result := TStoredValue(inherited Items[Index]);
end;
-procedure TStoredValues.SetItem(Index: Integer; StoredValue: TStoredValue);
+procedure TStoredValues.SetItem(Index: Integer; AStoredValue: TStoredValue);
begin
- inherited SetItem(Index, TCollectionItem(StoredValue));
+ inherited SetItem(Index, TCollectionItem(AStoredValue));
end;
function TStoredValues.GetStoredValue(const AName: string): TStoredType;
@@ -417,13 +417,13 @@
Result := Items[I];
end;
-procedure TStoredValues.SetValue(const AName: string; StoredValue: TStoredValue);
+procedure TStoredValues.SetValue(const AName: string; AStoredValue: TStoredValue);
var
I: Integer;
begin
I := IndexOf(AName);
if I >= 0 then
- Items[I].Assign(StoredValue);
+ Items[I].Assign(AStoredValue);
end;
procedure TStoredValues.SaveValues;
Index: lcl/lresources.pp
===================================================================
--- lcl/lresources.pp (revision 8349)
+++ lcl/lresources.pp (working copy)
@@ -91,7 +91,7 @@
procedure SkipSetBody;
function ReadIntegerContent: integer;
public
- constructor Create(Stream: TStream; BufSize: Integer); virtual;
+ constructor Create(AStream: TStream; BufSize: Integer); virtual;
destructor Destroy; override;
function NextValue: TValueType; override;
@@ -203,7 +203,7 @@
LFMPositions: Boolean): integer;
procedure SetPosition(const FromPos, ToPos, MappedPos: int64;
LFMtoLRSPositions: Boolean);
- procedure Add(const LFMPos, LRSPos: Int64; Data: Pointer);
+ procedure Add(const LFMPos, LRSPos: Int64; AData: Pointer);
public
property LFM[Index: integer]: int64 read GetLFM write SetLFM;
property LRS[Index: integer]: int64 read GetLRS write SetLRS;
@@ -2606,10 +2606,10 @@
{$endif}
end;
-constructor TLRSObjectReader.Create(Stream: TStream; BufSize: Integer);
+constructor TLRSObjectReader.Create(AStream: TStream; BufSize: Integer);
begin
inherited Create;
- FStream := Stream;
+ FStream := AStream;
FBufSize := BufSize;
GetMem(FBuffer, BufSize);
end;
@@ -3474,7 +3474,7 @@
PLRPositionLink(FItems[i])^.LFMPosition:=MappedPos;
end;
-procedure TLRPositionLinks.Add(const LFMPos, LRSPos: Int64; Data: Pointer);
+procedure TLRPositionLinks.Add(const LFMPos, LRSPos: Int64; AData: Pointer);
var
Item: PLRPositionLink;
begin
@@ -3482,7 +3482,7 @@
Item:=PLRPositionLink(FItems[Count-1]);
Item^.LFMPosition:=LFMPos;
Item^.LRSPosition:=LRSPos;
- Item^.Data:=Data;
+ Item^.Data:=AData;
end;
initialization
Index: lcl/controls.pp
===================================================================
--- lcl/controls.pp (revision 8349)
+++ lcl/controls.pp (working copy)
@@ -658,7 +658,7 @@
published
property Control: TControl read FControl write SetControl;
property Side: TAnchorSideReference read FSide write SetSide
- stored IsSideStored default TAnchorSideReference(-1);
+ stored IsSideStored default asrTop;
end;
