pascal/kolmck
pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/kolmck/code@62 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

Browse Source
This commit is contained in:
dkolmck 2010-05-01 18:55:53 +00:00
parent e8fdcb7c63
commit ccc3027b6b
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
KOL.pas
View File

@ -856,7 +856,7 @@ type
follow item indeces up by one. }
procedure DeleteRange( Idx, Len: Integer );
{* Deletes Len items starting from Idx. }
procedure Remove( Value: Pointer );
function Remove(Value: Pointer): Integer;
{* Removes first entry of a Value in the list. }
property Count: Integer read fCount write SetCount;
{* Returns count of items in the list. It is possible to delete a number
@ -15568,12 +15568,11 @@ end;
{$ENDIF ASM_VERSION}
//[procedure TList.Remove]
procedure TList.Remove(Value: Pointer);
var I: Integer;
function TList.Remove(Value: Pointer): Integer;
begin
I := IndexOf( Value );
if I >= 0 then
Delete( I );
Result := IndexOf( Value );
if Result >= 0 then
Delete( Result );
end;
function TList.ItemAddress(Idx: Integer): Pointer;