paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added pointeraccess to data

Browse Source 
git-svn-id: trunk@10134 -
This commit is contained in:
marc 2006-10-30 12:59:16 +00:00
parent b8106ada6e
commit 28f291504a
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/maps.pp
View File

@ -94,6 +94,7 @@ type
procedure IteratorRemove(AIterator: TBaseMapIterator);
protected
function InternalGetData(AItem: PMapItem; out AData): Boolean;
function InternalGetDataPtr(AItem: PMapItem): Pointer;
function InternalGetId(AItem: PMapItem; out AID): Boolean;
function InternalSetData(AItem: PMapItem; const AData): Boolean;
public
@ -142,6 +143,7 @@ type
public
function HasId(const AID): Boolean;
function GetData(const AId; out AData): Boolean;
function GetDataPtr(const AId): Pointer;
function SetData(const AId, AData): Boolean;
end;
@ -151,6 +153,7 @@ type
private
protected
public
function DataPtr: Pointer;
procedure GetData(out AData);
procedure GetID(out AID);
function Locate(const AId): Boolean;
@ -351,6 +354,18 @@ begin
Move(p^, AData, FDataSize);
end;
function TBaseMap.InternalGetDataPtr(AItem: PMapItem): Pointer;
begin
if AItem = nil
then begin
Result := nil;
Exit;
end;
Result := @AItem^.ID;
Inc(Result, ID_LENGTH[FIdType]);
end;
function TBaseMap.InternalGetId(AItem: PMapItem; out AID): Boolean;
begin
Result := AItem <> nil;
@ -607,6 +622,11 @@ begin
Result := InternalGetData(FindItem(AId), AData);
end;
function TMap.GetDataPtr(const AId): Pointer;
begin
Result := InternalGetDataPtr(FindItem(AId));
end;
function TMap.HasId(const AID): Boolean;
begin
Result := FindNode(AId) <> nil;
@ -619,6 +639,12 @@ end;
{ TMapIterator }
function TMapIterator.DataPtr: Pointer;
begin
Validate;
FMap.InternalGetDataPtr(FCurrent);
end;
procedure TMapIterator.GetData(out AData);
begin
Validate;